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TECHNICAL MEMORANDUM 


A COMPUTER PROGRAM FOR ASSESSING THE ECONOMIC FEASIBILITY 
OF SOUR ENERGY FOR SINGLE-FAMILY RESIDENCES AND LIGHT 

COMMERCIAL APPLICATIONS 

I. INTRODUCTION 


A solar heating system operating on free sunlight can typically 
supply 50 to 70 percent of the home space heating and hot water load. 
This savings in conventional fuel cost (either electricity, natural gas or 
oil) over many years in the future is the incentive for spending the 
extra money to install a solar heating system. Because of the possibility 
of extended bad weather, a conventional heating system capable of pro- 
viding 100 percent of the heating load is always required. This con- 
ventional system would serve as a backup when a solar heating system 
is also installed. So the question of whether to spend the extra money 
depends on how much you can expect to save in the future and, perhaps 
more importantly, how long you are willing to wait to get those savings. 

Classically, life cycle costing is the method used to evaluate 
economic alternatives. The individual cash flow profiles of each alterna- 
tive are discounted to present dollars and the cheapest selected. How- 
ever, individual homeowners do not generally make decisions on a life 
cycle cost basis. Fifteen or twenty years is probably too long to wait 
and the first four or five years is when most people would want their 
investment in solar to "pay back." The following definitions, from 
Reference 1, are useful: 

For individual homeowners, solar marketers have found that 
cash flow measures are paramount. Three measures are 
particularly important, each in terms of time: 

• Years to positive cash flow is the number of years for 
fuel cost savings to become greater than the extra 
expenses of the solar system, after taxes. The cri- 
terion assumed is two years, because most homeowners 
expect rapid savings for an "energy conserving" 
investment . 

• Y ears to recover downpayment is the number of years 
required for accumulated savings to offset initial cash 
payments and early cash flow losses, after taxes. The 
criterion assumed is five years, based on today's 


average housing turnover rate of five years and the 
expectation that homeowners will seek to recover their 
downpayment before selling. 

• Payback peri od is the number of years for accumulated 
savings to repay the full cost of the system (or equal 
the remaining principal on a loan if financed). The 
criterion assumed is ten years, assuming the home- 
owner wishes to be paid back entirely for his invest- 
ment in no more than ten years. 

The computer program provides a cash flow analysis for each year so that 
any decision criteria selected can be applied with the data provided. 

There are some important economic considerations involved in 
"sizing" a solar heating system. Here "sizing" means selecting a collector 
area and performance and determining the resultant percentage of the 
total annual load carried by the solar system. See Reference 2 for a 
more detailed discussion. There are fixed and variable costs in a solar 
instillation. Fixed costs consist of pumps, controls , ducts, etc. Vari- 
able costs are mainly due to collector area. As the collector area 
increases, the solar system carries a greater percentage of the annual 
load. The characteristic curve of solar system life cycle cost versus 
collector area is depicted in Figure 1. For low collector areas, not much 
sunlight is captured; hence, little heating value is achieved. A relatively 
large amount of money has been spent to perform the heating equivalent 
of a small amount of conventional fuel. At high collector areas a similar 
uneconomical phenomena occurs. Adding collector area, when it is 
already relatively high, provides a small increase in the percent of total 
load carried by the solar system. Hence the added collector area and 
cost is only slightly reducing the conventional fuel bill. There is a 
collector area which minimizes life cycle cost, as depicted on Figure 1. 
However, this may not be the size of solar system most attractive io the 
homeowner from an economic standpoint. Consider the economic decision 
involved in moving the design from the area of minimum life cycle cost 
along Path A (i.e. , in the direction of reducing the collector area). 

The characteristic curve is relatively Hat near the area of minimum life 
cycle cost. Reducing collector area has an almost linear effect on reduc- 
ing system initial cost. A penalty is paid, however, in terms of 
increased life cycle cost. The important point here is that savings in 
initial cost may be relatively large, and hence attractive to the home- 
owner, in comparison to the life cycle cost penalty. The sensitivity 
study and plot features of the computer program allow these alternatives 
to be studied. 
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SOLAR SYSTEM LIFE CYCLE COST 
(INCREASE ► ) 





A. Cost Elements 


Comparing the life cycle cost of a solar heating system with a con- 
ventional system requires, first of all; the identification of costs which 
are expected to be different over the life of the two alternatives. One 
of the alternatives is to have a conventional system perform 100 percent 
of the load using conventional fuel. The second alternative is to have 
both a solar heating system and a conventional system. In this second 
alternative, the solar heating system would carry from 50 to typically 
70 percent of the total load and the conventional system carry the 
remaining 30 to 50 percent. The conventional system in tliis second 
alternative is sized, however, to have the capability to carry 100 percent 
of the load if lack of sunlight makes the solar heating system temporarily 
useless. 

The approach adopted in this report is to provide a fairly compre- 
hensive list of cost elements which may be an important part of any 
economic analysis and let the program user select the ones to include for 
his particular circumstances. Table 1 lists these cost elements and gives 
a brief discussion of their meaning. The work of Rosalie Ruegg [3] con- • 
tains an excellent discussion of metnods of economiciilly evaluating solar 
heating systems. The program described here follows her work closely. 


B. Solar Heating System Sizing 

Sizing a solar heating system requires knowledge of the total annual 
heating load of the home. Methods of doing this are readily available [4]. 
Collector area is considered a variable in this formulation in that the 
user chooses the one of maximum economic benefit. Starting with an 
initial collector area and performance characteristics, it is then necessary 
to determine the percent of the annual load carried by the solar system. 
There arc numerous methods for doing this [2,5]. The GFL Method [5] 
has been built into the computer program. By selecting a region of the 
country (from the list of 151 cities in Table 2), a collector area, and the 
type of working fluid (air or liquid) the computer program determines 
the percent of total load carried by the solar heating system. The GFL 
method requires the selection of collector performance parameters. The 
following values, which are considered typical, are built into the program. 

For an air system F' t a = 0.6 and F' U r - 4.0 IV/M^*°C. For a liquid 

U lv Jj 

system F'^ia = 0.75 and F'^Uj. - 4.0 IV /M ,0 C. If the program user has 

other values for collector performance parameters, they can be input to 
the program. Also, if the percent solar fraction is known it can be input 
and the GFL Method will not be used. 
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TABLE 1 


COST ELEMENTS WORKSHEET 


Cost Element 

Description 

I.ife Cycle Costing Calculation 

1 ser Problem Data Worksheet 

Act; ui si lion 

Initial costs incurred by purchase, 
delivery, installation and integration. 

Treated as initial, one-time cost and is 
not discounted or inflated. A down 
payment factor may tic applied. 


building Moth fic^tion.s 

Co. ’s due to structural modifications 
required for the system. 

Treated as initial, one time cost and 
is not discounter! nr inflated. 


Net Replacement and 
Repair 

Yearly cost of replacement s and 
repair to the system. 

Cost input in year incurred, then 
inflated and discounted. 


Maintenance 

Estimated annual cost for maintenance 
of total system. 

Initial value input for first year, then 
inflated and discounted. 


Conventional Fuel Cost 

Annual conventional fuel and energy 
costs required for system operation. 

Annual cost for first year input . then 
inflated by energy escalation factor 
and discounted. 


Property Taxes 

Property taxes paid due to assessed 
value of the equipment. 

Same method as for Maintenance. 


Property Tax Credits 

Ded\iotions from income tax due to 
property taxes paid . 

Income tax rate times taxes paid. 


Maintenance Expense 
Credits 

Reduces commercial taxable income. 

Income tax rate times expenses. 


Depreciation Credit 

Commercial deduction from taxes. 

Straight line method, no inflation. 


Added Income 

Increased rental of solar compared to 
conventional property due to lower 
utilities. 

Income is taxed and .discounted. 


insurance 

Cost of insurance on the svstem. 

Net annual cost input and discounted, 
not inflated. 


Sal va ge 

Expected value at end of- life. 

Discounted . 

. 

loan Payments 

Annual loan payments on t>orrowed 

funds . 

Ixem is amortized and yearly payment 
computed. Yearly interest computed. 
Payment is discounted. 


Txian Interest Credits 

Tax deduction due to interest paid. 

Interest from loan computed and discounted. 


Conventional Fuel Cost 
Credit 

Commercial tax deduction. 

Annual cost for first year input, then 
inflated by energy escalation factor. 




TABLE 2. CITY LISTING 


1. 

Abilene, Texas 

47. 

Fort Wayne, Indiana 

2. 

Albany, New York 

48. 

Fort Worth, Texas 

3. 

Albuquerque, New Mexico 

49. 

Fresno, California 

4. 

Amarillo, Texas 

50. 

Gainesville, Florida 

5. 

Ames, Iowa 

51. 

Glasgow , Montana 

6. 

Amherst, Massachusetts 

52. 

Grand Junction, Colorado 

7. 

Annapolis , Maryland 

53. 

Grand Lake, Colorado 

8. 

Apalachicola, Florida 

54. 

Great Falls , Montana 

9. 

Asheville, North Carolina 

55. 

Green Bay, Wisconsin 

10. 

Astoria, Oregon 

56. 

Greensboro, North Carolina 

11. 

Atlanta, Georgia 

57. 

Grandville-Spartanburg , 

12. 

Atlantic City, New Jersey 


North Carolina 

13. 

Big Spring, Texas 

58. 

Griffin, Georgia 

14. 

Billings, Montana 

59. 

Hartford, Connecticut 

15. 

Bir.ghampton , New York 

60. 

Houston , Texas 

16. 

Birmingham, Alabama 

61. 

Indianapolis, Indiana 

17. 

Bismarck, North Dakota 

62. 

Inyokern , California 

18. 

Bluehill, Massachusetts 

63. 

Ithaca, New York 

19. 

Boise, Idaho 

64. 

Jackson , Mississippi 

20. 

Boston, Massachusetts 

65. 

Jacksonville, Florida 

21. 

Boulder, Colorado 

66. 

Kansas City, Missouri 

22. 

Brownsville, Texas 

67. 

Key West, Florida 

23. 

Cape llatteras, North 

68. 

Lake Charles, Louisiana 


Carolina 

69. 

Lander, Wyoming 

24. 

Caribou, Maine 

70. 

Lansing, Michigan 

25. 

Charleston, South Carolina 

71. 

Laramie, Wyoming 

26. 

Charlotte, North Carolina 

72. 

Las Vegas, Nevada 

27. 

Chattanooga, Tennessee 

73. 

Lemont , Illinois 

28. 

Chicago, Illinois 

74. 

Lexington, Kentucky 

29. 

Cleveland, Ohio 

75, 

Lincoln, Nebraska 

30. 

Columbia, Missouri 

76. 

Little Hock, Arkansas 

31. 

Columbus, Ohio 

77. 

Ix)s Angeles, California 

32. 

Corpus Christi, Texas 

78. 

Louisville, Kentucky 

33. 

Corvallis, Oregon 

79. 

Lynn , Massachusetts 

34. 

Dallas , Texas 

80. 

Macon, Georgia 

35. 

Davis, California 

81. 

Madison , Wisconsin 

36. 

Dayton , Ohio 

82. 

Manhattan, Kansas 

37. 

Denver, Colorado 

83. 

Medford, Oregon 

38. 

Des Moines , Iowa 

84. 

Memphis, Tennessee 

39. 

Detroit, Michigan 

85. 

Miami , Florida 

40. 

Dodge City, Kansas 

86. 

Midland, Texas 

41. 

Duluth, Montana 

87. 

Milwaukee, Wisconsin 

42. 

East Lansing, Michigan 

88. 

Minn-St. Paul, Minnesota 

43. 

El Paso , Texas 

89. 

Mt. Weather, Virginia 

44. 

Ely, Nevada 

90. 

Nashville, Tennessee 

45. 

Fargo, North Dakota 

91. 

Natick, Massachusetts 

46. 

Fort Smith, Arkansas 

92. 

New Orleans, Ijouisiana 




TABLE 2. (Concluded) 


j u3. Newport, Rhode Island 

94. New York, New York 

95. Norfolk, Virginia 

96. North Omaha, Nebraska 

97. Oak Ridge, Tennessee 

98. Oklahoma City, Oklahoma 

99. Page, Arizona 

100. Parkersburg, West Virginia 

101. Pasadena. California 

102. Pensacola, Florida 

103. Peoria, Illinois 

104. Phoenix, Arizona 

105. Philadelphia, Pennsylvania 

106. Pittsburgh, Pennsylvania 

107. Pocatello, Idaho 

108. Port Arthur, Texas 

109. Portland, Maine 

110. Portland, Oregon 

111. Prosser, Washington 

112. Pueblo, Colorado 

113. Pullman, Washington 

114. Put in-Bay, Ohio 

115. Raleigh, North Carolina 

116. Ralcigh-Durham , N,;rth 
Carolina 

117. Rapid City, South Dakota 

118. Reno. Nevada 

119. Richland, Washington 

120. Richmond, Virginia 

121. Riverside, California 

122. Rochester, New York 

123. Sacramento, California 

124. St. Cloud, Minnesota 

125. St. Louis, Missouri 

126. Salt Lake City, Utah 

127. San Antonio, Texas 

128. San Diego, California 

129. San Francisco, California 

130. San Jose, California 

131. Santa Maria, California 

132. Savannah, Georgia 

133. Sault St. Marie, Michigan 

134. Schenectady, New York 

135. Seattle, Washington 

136. Shreveport, Iiouisiana 

137. Silver Hill, Maryland 


138. Spokane, W&shington 

139. State College, Pennsylvania 

140. Stillwater, Oklahoma 

141. Summit, Montana 

142. Syracuse, New York 

143. Tallahassee, Florida 

144. Tampa, Florida 

145. Trenton, New Jersey 

146. Tucson, Arizona 

147. Tulsa, Oklahoma 

148. Twin Falls, Idaho 

149. Washington, D.C. 

150. Wichita, Kansas 

151. Yuma, Arizona 


7 



C. Sensitivity Studies 

Selecting vulues of certain key cost parameters , such as future 
conventional fuel escalation rates, requires subjective judgment. The 
program is designed to study a range of values of certain parameters in 
one run or execution of the program. The parameters which can be 
varied are collector area, discount rate, inflation rate, down payment 
factor, property tax rate and income tax rate. The plot feature of the 
program produces plots of life cycle cost as a function of any of these 
parameters . 


II. USER PROBLEM FORMULATION 


The totul life cycle cost of the solar and conventional energy sys- 
tem is computed by adding the individual life cycle costs of the basic 
cost elements which are appropriate for the type of analysis desired. 

The user selects the basic cost elements which he considers important. 
There are fifteen possible cost elements (Table 1) covering an extensive 
range of possibilities for residential and commercial applications. 

The life cycle cost calculation is formulated for computer solution 
in the classic Work Breakdown Structure (WBS) format. See Reference 
6 for a description of the WBS concept. In this application of the WBS 
concept each cost element is a block in the WBS where costs are accumu- 
lated from sub-elements at a lower level and are summed to cost elements 
at a higher level. A three level WBS is illustrated in Figure 2. The 
highest level block, Solar System Life Cycle Cost, is a Level I block and 
contain? the total life cycle costs of the solar system. There are 7 Level 
II blocks illustrated from Acquisition to I/jan Interest Credits. Note that 
the Level II block titles are cost e-omenis from Table 1. Level III is 
illustrated by showing that Acquisition has been further sub-divided 
into various hardware components as well as Integration and Installation. 

The first step in formulating the user problem is to select from 
Table ! the cost elements for the solar and conventional energy system 
to be analyzed. It may save some work for the user to recall that when 
comparing life cycle costs for two competing systems, it is only necessary 
to consider cost elements which may be different for the two systems. 

For example, if no significant difference in property tax is expected 
between the solar and conventional system, then it is not necessary to 
include that cost element in the analysis of either. 

The next step is to construct a WBS. This is a very important 
step and must be done properly for successful program execution. The 
key decisions wliich the user must make for each WBS block are its 
proper level, title, WBS number and block number. Figure 2 illustrates 
these concepts. 


8 




Figure 2. W’BS for typical solar system life cycle cost analysis. 
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A. Rules for Constructing the WBS 

1. Level I Blocks . Two (no more, no less) Level I blocks are 
necessary. They must have the following titles, WBS numbers and block 
numbers : 


TOS 4TT] 

No . ' 1 ~ J 

SOLAR SYSTEM 
LIFE CYCLE COST 

]T~~ 

Block No.^ 

There will usually be several Level II blocks under each of these 
Level I blocks. 

2. Level II Blocks. 

a) Each Level II block must be one of the cost elements from 

Table 1. 

b) There will be two groups of Level II blocks, one group 
under the Level I block Solar System Life Cycle Cost, and the other 
under the Level I block Conventional System Life Cycle Cost. 

c) The first Level II block under WBS 1.0 must be: 


2.0 


CON 1 

LIE 

i/ENT IONAL SYSTEM 
E CYCLE COST 


i£LJ 


i.i 



ACQUISITION 

2 


This block must be included in each problem and have the indicated WBS 
number, title and block number. There are usually several other Level 
II blocks under WBS 1.0. 

d) The other Level I block, WBS 2.0, must contain the follow- 
ing Level II block with indicated title and block number: 


ZJ 

JEL 

CONVENTIONAL FI 


107 

i : 
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Note that no specific WBS number is required. A logical number to 
assign to it will become evident to the user as the construction of the 
WBS continues. 

e) The number of additional Level II blocks under each Level 
I block depends on which additional cost elements the user decides to 
consider. 


f) When a cost element is selected and made a Level II block, 
its title and block number are restricted. Block titles at Level II are 
always the same as cost elements from Table 1. Block numbers at Level 
II are restricted to the values shown in Table 3. 

g) Remaining to be selected are the WBS numbers for Level 
II blocks. From an understanding of the WBS concept, logical numbers 
under the Level I block number 1.0 would be 1.1, 1.2, 1.3, etc. and 
under 2.0 would be 2.1, 2.2, 2.3, etc. 

TABLE 3. COST ELEMENT BLOCK NUMBERS 


Block Title 
(Cost Element) 

When Selected to 
Go Under 1.0, 
Must Have the 
Block Number 

When Selected to 
Go Under 2.0, 
Must Have the 
Block Number 

Acquisition 

2 

102 

Building modifications 

3 

103 

Space occupied 

4 

104 

Repair 

5 

105 

Maintenance 

6 

106 

Conventional fuel 

7 

107 

Property taxes 

8 

108 

Property tax credits 

9 

109 

Depreciation credits 

10 

110 

Added income 

11 

Not applicable 

Insurance 

12 

111 

Salvage 

13 

112 

Loan payments 

15 

114 

Loan interest credits 

14 

113 

Maintenance expense credits 

16 

115 

Fuel cost credits 

17 

116 
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3. 


Level III Blocks. 


a) The purpose of having Level III blocks available is to allow 
the user to specify additional detail, if desired, for each Level II block 
he selects. For example, under the cost element salvage value for a 
solar system , the user may choose to break down the total salvage value 
due to the collectors, hot water system, controls, etc. 

b) There is one level III block required in all problems, 


1.1.1 


COLLECTOR 

18 


and it must have the indicated WLS number, block title and block number. 
It must go under the Level II block: 


l.l 


A< 

3QUISITI0N 




c) When Level III blocks art? used , the user is in effect 
creating sub-cost elements under a Level II block. The sub-cost ele- 
ments are treated the same mathematically as the Level II cost element 
they are under. It is important that the sum of all the Level III block 
costs under a particular Level II block equal what would have been input 
for the Level II block cost had the user not elected to go to the Level 
III detailed breakout. Additionally, after having elected to go to Level 
III detail, it is not necessary to input the data at Level II since the 
computer will sum the Level III input data and results at Level II. 

d) WBS numbers and block titles at level III can be selected 
by the user (except for as previously noted). 


1 . 1.1 


C01 

.LECTOR 



18 
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e) Block numbers at Level 111 are restricted *o the following 

values : 

Level III blocks under the Level I block 1.0 can 
have values between 19 and 100. Level III blocks 
under the Level l block 2.1) can have values 
between 118 and 200. 

0 Note that forcing t lie user to go to Level III under the 
Level II block 


1.1 


ACQUISITION 

2 


requires the creation of additional Level III blocks under 1.1, besides 

1.1.1 Collector to handle acquisition costs of other components in the 
solar system as well as integration and installation costs. See Figure 3 
as an illustration. The number of these additional Level III blocks is at 
the discretion of the user. 

Having now been through the rules for constructing the WBS, the 
WBS for t lie user's problem should be properly constructed. Each WBS 
block should have a unique WBS number and block number. The WBS 
numbers should now be arranged in the classic WBS indentured format: 

1.0 Solar System Life Cycle Cost 

1.1 Acquisition 

1.1.1 Collector 

1.1.2 Other 

1.2 Building Modifications 

• 

2.0 Convention;’.! System Life Cycle Cost 

2.1 Operations 

A diagram similar to Figure 3 showing the WBS blocks at each level and 
their relation to each other should be constructed for the user problem. 
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Figure 3. Additional Level III block possibilities 
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B. Data Collection 

The next step in formulating the user problem is 'to gather the 
necessary cost data and related problem parameters. Data for each 
selected cost element from Table 1 is required. The additional cost data 
and problem parameters needed for formulating the complete problem are 
outlined in Tables 4 and 5. Table 6 indicates the units and format 
required for all data. 


TABLE 4. ADDITIONAL COST DATA WORKSHEET 


Additional Cost Data 

User Problem Worksheet 

2 

Collector cost in dollars /m 
Discount Rate 
Inflation Rate 
Down Payment Rate 
Property Tax Rate 
Income Tax Rate 



TABLE 5. PROBLEM PARAMETER WORKSHEET 


Problem Parameters 

User Problem Worksheet 

Number of years in the life cycle 
cost analysis 

Starting year 

2 

Collector area, m 

City location code number 

Liquid or Air system 

Total building load, GJ/yr 

Commercial or residential 
application 



15 









T ABI.F (5 . DATA UNITS AND COMPUTER FORMAT 


Units 

$ / m “ 

CjJ /Yr 

Percent ( 10 percent input 
as 0.1) 

Percent (0 percent input 
as 0.0(5) 

Percent ( 10 percent input 
as 0.1) 

Percent (2 percent input 
as 0.02) 

Percent (20 percent input 

as 0.3) 

•> 

m" 

Percent ( !> percent input 
as 0.00) 


III. USER PROBLEM SOLUTION 

The solution is obtained by inputing the user problem data into the 
computer in proper format and then executing- the prog-ram. To begin 
the process of inputing the problem data, the user should have on hand 
the following information: 

1) The UBS in block diagram form (Fig. 4) with appropriate IVBS 
numbers, block titles and block numbers. 

2) The UBS in indentured format (Table 7). 

3) Cost data for the selected cost elements from Table 1. The 
blank column in fable 1 is provided so that it can also be used as a 
problem worksheet . 

4) The additional cost data and problem parameters as outlined in 
Tables 4 and f> . The blank column in Tables 4 and 5 is provided so that 
it can also be used as a problem worksheet . 


Cost Data /'Problem 
Parameter 

Collector Cost 
Total Building Toad 
Discount Rate 

Inflation Rato 

Downpayment Factor 

Property Tax Kate 

Income Tax Rate 

Collector Area 
Mortgage Interest Kate 


Computer 
Input Format 

F10.0 

F10.0 

F8.2 

F8.2 

F8.2 

F8.2 

F8.2 

F8.2 
1-8. 2 


1(5 















Figure 4. Sample problem VVBS structure. 
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TABU- 7. SAM PLK PROBLKM WHS IN DM NT I'll Ml) FORMAT LISTING 


1.0 Solar 

System Life Cycle Cost 

1.1 

Acquisition 


1.1.1 Collector 


1.1.2 Other Cost Mlements 

1.2 

Maintenance 

1.3 

Conventional Fuel Cost. 

1.4 

Loan Payments 

1.5 

lx") an Interest Credits 

1.0 

Property Tax 

1.7 

Property Tax Credits 

2.0 Conventional System Life Cycle Cost i 

2. 1 

Conventional Fuel Cost 


All tho piublem data will now bo t runs for rod to usor input shoots. 
User input shoots aro in standard 80 column punched card format and 
arc illustrated in Figures 5. 6 and 7. Tho user input shoots aro divided 
into throe sections and the input rules for each will be described. 
Generally speaking. Section I input defines the WHS structure of the 
user problem and establishes which cost elements are to be considered in 
the life cycle cost analysis. Section 11 defines certain parameters and 
data values of the user problem. The main data input for each cost 
element occurs in Section 111. Units and computer input format for all 
data are described in Table ti. The first card in the deck, after the 
run card, is a title card. Any appropriate descriptive title for the user 
problem up to 30 characters in length may be used. See Figure 8 for 
an example of how a complete deck is assembled. 


A. Preparation of Input Data 

1. Section I. Section I is illustrated in Figure 5. The first step 
is to write in the UBS- numbers (in Columns -1 8) and the block titles 
(in Columns 0 32) using the indentured U'BS listing of the user problem 
as a guide to the proper sequence. There should be one card in Section 
I for each block in the U'BS and they should be in the sequence of the 
indentured format listing. 
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Figure 5. User problem input sheet - Section 1. 














Figure 7. User problem input sheet 


Section III 



Figure 8. Typical deck setup. 


The next step is to write in the block numbers (in Columns 1-3) 
using the WBS block diagram to obtain block numbers. Note that in 
Figure 5 five blocks are illustrated. It should be recalled from the dis- 
cussion of rules for constructing the WBS that these are the 5 blocks 
that must be a part of every problem. The first three (1.0, 1.1 and 
1.1.1) are in the sequence they will always be in for any problem. The 
proper location of 2.0 and 2 . ( ?) in the s^uenoe will depend on the 
number of other blocks in the indentured format listing of the user 
problem. 

It is now necessary to insert the block numbers of sublevel blocks 
in the field of Columns 33-80 for each WBS block. The rules for com- 
pleting this portion of the input are described in the following paragraphs. 
The objective of this input is to tell the computer which blocks have 
lower level blocks under them und for those that do, what the sublevel 
block numbers are. 

Rules for Section 1 input of block numbers of sublevel blocks are 
presented in the following paragraphs. 

a. Level III Blocks — 

1) Since I/ivei III blocks arc the lowest in the ‘.VBS they 
have no subblocks. Therefore, no input is appropriate. Leave Columns 
33-80 blank on the card for each Isivel III block in the indentured 
listing. 


b. Level II Blocks — 

1) For the I,evel II blocks which have no I^evel III blocks 
under them, simply leave the field blank. 

2) For Level II blocks with Level III subblocks, insert 
each lx;vel 111 subblock number in the field of Columns 33-80. They do 
not have to be in any specific sequence. Note that one of the Level III 
block numbers ^oes in Columns 33-35, another block number in Columns 
36-38, another in 39-41. etc., until all Level III block numbers under 
that I^jvel II block are listed. Note as an example in Figure 5 that 
Block Number 18 (u Ixjvel III block) is listed as being a sublevel block 
of Block Number 2, 1.1, Acquisition, itself a Level II block. 

c. Level I Blocks — 

1) Each of the two I,evcl I blocks (WBS No. 1.0 and 2.0) 
must huve at least one Ix>vel II block under it according to our previous 
discussions and usually there are several other Ix?vel II blocks. 
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2) Insert the Level II block numbers under WBS 1.0 on 
the card for WBS 1.0 and in the field 33-80. Note that in Figure 5, 
Block Number 2 is listed. 

3) Do not put Level III block numbers on the card of a 
Level I block, although, in a sense, Level III blocks are sublevels of a 
Level I block. 


4) Insert the Level II block numbers under W3S 2.0 on 
the card of WBS 2.0 and in the field 33-80. Note in Figure 5 that Block 
Number 107 is already listed. 

There should be as many cards in Section I as there are WBS 
blocks in the user problem, A blank card should be added as the last 
card. The input for this section is now complete. 

2. Section II. Data for inputing this section comes from Tables 
'l and 5. Figure 6 shows how the various data are input. The first 
card contains the following parameters and d-ita: 

a) The number of years in the life cycle cost analysis goes in 
Columns 1-5. 

b) The starting year of the analysis goes in Columns 6-10. 

2 

c) The collector cost in $/m goes in Columns 11-20. 

d) Columns 24 and 25 must have "18" in them. 

e) The city location code from Table 2 goes in Columns 26-30. 

f) For a liquid system insert 1 in Column 35. For an air 
system insert 2 in Column 35. 

g) The total building load in GJ/yr goes in Columns 36-45. 

h) For a residential problem input 0 in Column 50. For a 
commercial problem input 1 in Column 50. 

i) The remaining Columns (51-80) should contain the numbers 
indicated in Figure 3. 

The remaining six cards in Section II contain the following data, 
nil inputs beginning in Column 1: discount rate, inflation rate, down 

payment factor, property tux rate, income tax rate, and collector area. 
This completes input for Section II. 

3. Section HI. Figure 7 illustrates the format for Section III 
input. The purpose of Section III is to input the user problem cost nnd 
parameter data for certain WBS blocks. Not all WBS blocks require an 
input in this section. The WBS blocks of the user problem which require 
input in this section are identified by the following rules: 
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u) Neither of the Level I blocks require data input. 

b) The following Level II blocks, if they happen to be a part 
of the user problem, do not require input in this section: Block Number 

7. Conventional Fuel Cost; Block Number 8, Property Taxes; Block 
Number 9, Property Tax Credits: Block Number 15, Ijoan Payments; 

Block Numbers 16 and 115, Maintenance Kxpensc Credits; Block Numbers 
17 and 116, Conventional Fuel Cost Credits. 

c> Every other Level II block requires data input unless it 
has Level III subblocks. 

d) All Level III blocks require duta input except Block Number 

18. 


Two cards are required to complete the input for each block. The 
first card contains the block number and the second contains the cost/ 
parameter data. The block card pairs can be grouped in any order; the 
important point is that the cost -parameter data for each block be on the 
card immediately following the card containing the block number. The 
WHS together with these rules should identify the WHS blocks which 
require cost /parameter data input in Section III. A description of how 
to input the cost /parameter data on the second card of the block card 
pair is provided in Table 8. The last portion of the Section III input is 
for the special case when net replacement and repair has been selected 
as a cost element in the user problem. In this case, at least two addi- 
tional cards are required. The first must contain a "5" in Column 4 as 
illustrated in Figure 7. On the second card, the cost incurred in the 
first year of the analysis is input in Columns 1 to 8. the cost incurred 
in the second year of the analysis is input in Columns 9 to 16, those for 
the third year in 17 to 24. etc. More than this second card may be 
required to input the data for all years of the analysis, depending on 
the number of years in the life cycle cost analysis. The very lust card 
of Section III must contain a zero in Column 4. 


B. Program Execution 

The program is designed to run on the Univac 1108 with EXEC 8 
operating system. The core size is 82k. The program is written in 
ASC II Fortran and runs in batch mode. A Cal Comp plotter is used 
for output when a sensitivity run is made and plots are required, 
figure 8 shows a typical deck setup with notes that are consistent with 
the previously discussed rules for inputing the data. Section VI of this 
report. Program Documentation, contains additional information on pro- 
gram execution. 
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TABLE 8. SECTION III COST /PARAMETER DATA INPUT 


Cost Element 

Cost /Parameter Data 

Input Description 

Building- Modifications 

Cost in Dollars 

Begins in Column 1. F3.2 

Acquisition 

Cost in Dollars 

Begins in Column 1, F8.2 

Maintenance 

Percent of Acquisition Cost in 
First Year 

Begins in Column 1, F8.2 

Conventional Fuel 
Cost 

Cost in Dollars for Supplying 
100 Percent of Load and Escalation 
Rate in Percent 

Cost Beginning in Column 1 (F8.2) 
Followed by Escalation Rate (F8.2) 

Depreciation Credit 

Salvage Value in Dollars After 
N Years of Depreciation 

Salvage Value Beginning in Column 1 
(F8.2) Followed by N CF8.2) 

Added Income 

Income in Dollars for First Year 

Begins in Column 1, F8.2 

Insurance 

Percent of Acquisition Cost in 
First Year 

Begins in Column 1, F8.2 0. Should 
be in Columns 10 and 11 and also in 
Columns 20 and 21. 

Salvage 

Value in Dollars at End of Period 
of Analysis 

Begins in Column 1, F8.2 

Load Interest Credits 

Number of Years of Mortgage 
and Percent Interest Rate 

Number of Years Begins in Column 1, 
( F 8 . 2 ) , Followed by Interest Rate 
(F8.2) . 



IV. SAMPLE PROBLEM 


As an example of the formulation and solution of a problem , a 
sample case is described. This particular problem has been used by the 
Systems Simulation and Economic Analysis Working Group, * a DOE 
sponsored organization , to compare economic analysis programs nation- 
wide. The sample problem is defined in Table 9. As previously 
recommended, Tables 1, 4 and S have been used as problem worksheets 
and appear here as Tables 10, 11 and 12. The WBS for the problem is 
shown in Figure 4 and the WBS indentured format listing is in Table 7. 

Since no collector area or geographic location is specified, it is 
necessary to select some values for purposes of executing the program. 
The $10,000 initial system cost has been arbitrarily split into $8,000 for 
collectors and $2,000 for other cost elements. In Birmingham, Alabama, 
a collector area of 48.28 m^ is necessary to carry 70 percent of the 100 
MBtu/yr load. All the information is now available to prepare the 
computer input sheets. The results of that are shown in Figures 9, 10 
and 11. The program was then executed and the problem results are 
shown in Table 13 and Figure 12. 


TABLE 9. SAMPLE PROBLEM DATA 


Initial Cost of System 


$10,000 

Downpayment 


10 percent 

Mortgage Rate 


9 percent 

Discount Rate 


10 percent 

Maintenance (percent of 
Initial Cost) 


1 percent /yr 

Property Tax (percent of 
Initial Cost) 


2 percent 

General Inflation Rate 


6 percent 

Fuel Inflation Rate 


10 percent 

Effective Tax Rate 


30 percent 

Initial Fuel Cost 


10 $/MBtu 

Load Demand 


100 MBtu/yr 

Percentage Solar 


70 percent 

System and Mortgage Lifetime 


20 yr 

Salvage Value 


0 


1 . 


"System and Economic Analysis Meeting Report," J. M. Alcone, 
Sandia Laboratories, Albuquerque, New Mexico, March 4, 1977. 
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TABLE 10. SAMPLE 


Cost lilc-L'iC-nt 
Acquisition 

i * ui Id in ^ Modifications 

Net Ft e placer:. or. t a n d 
Repair 

M id r . * e r, a n co 
Conventional Fuel Cost 

Property Taxes 

Property Tax Credits 

Mai ntc nance Expense 
Credits 

Depreciation Credit 
Added Incorne 


Insurance 

Salvage 
F^an Payments 

Fxan trite rest Credits 

Conventional Fuel Cost 
Credit 


Description 

ir.iti.-il costs incurred by purchase, 
delivery, installation and integration. 


Costs due to structural modifications 
required for the system. 

Yearly cost of replacements ..nr] 
repair to the system. 

Estimated annua! cos: for maintenance 
of total system. 

Ar.nua! conventional fuel and energ- 
co,ts required for system operation'. 

Property taxes paid due to assessed 
va.uc of t hiO equipment . 

Deductions from income tax r'ar- to 
property taxes paid. 

Reduces commercial taxable income. 


Commercial deduction from taxes. 

increased rental of solar compared to 
conventional property due to lowr-r 
utilities. 

Cost of insurance on the system. 

Expected value at end of life. 

Annual loan payments on borrowed 
funds . 


Tax deduction due to interest paid. 
Commercial tax deduction. 


COST ELEMENTS WORKSHEET 


I.lic Cycle Costing Calculation 


I rested as initial, one time cost and is 
nr-t discounted or inflated. A down- 
payment factor may be applied. 

Treated as initial, one-time cost and 
is not discounted or inflated. 

Cost input in year incurred, then 
inflated and discounted. 


I ser Problem Data Worksheet 


$10,000 total, arbitrarily split into 
$0,000 collector and * 2.000 other 
cost elements. 

S’ A 


S' A 


Initial value input for first year, then 
infl/ited ;»nd discounted. 

Annual cost for first year input, then 
inflated, by energy escalation factor 
nn<i dis co iintcrj . 

Same method a.s for Maintenance. 

Income tax rate times taxes paid. 

Income tax rate times expenses. 

Straight line method, no inflation. 
Income is taxed and discounted . 


Set annual cost input and discounted 
not inflated. 

Discounted . 

Doan is amortized and yearly p yment 
computed. Yearly interest computed. 

I <iy merit is discounted . 

Interest from loan computed and discounted. 

T' St f ° r f ‘ rVt yC ' ,r ' nf ' Ut ' tf ' Cn 

innated by energy escalation factor. 


I percent of initial total a/t -'vr 
i.e. $100, yr. 

SOf.AK : $100 first year Tor con- 
ventional fu'-;. , 

CONVENT IONA I,: $1,000 first year! 

~ percent of initial cost. 

fo be considered. 

NA 

NA 
NA 

NA 

0. therefore not considered. 

$0,000 iKirro wed ;it f> 
for 20 years. 

To be considered. 

NA 


percent 


TABLE 11. COST DATA WORKSHEET 


Additional Cost Data 

User Problem Worksheet 

2 

Collector cost in dollars /m 

$8,000/48.28 m 2 = $165. 70/m 2 

Discount Rate 

10 percent 

Inflation Rate 

6 percent 

Down Payment Rate 

' 10 percent 

Property Tax Rate 

2 percent, of Initial Cost 

Income Tax Rate 

30 percent 


TABLE 12. PROBLEM PARAMETERS SAMPLE WORKSHEET 


Problem Parameters 

User Problem Worksheet 

Number of years in the life cycle 
cost analysis 

20 years 

Starting year 

1980 

2 

Collector area, m 

48.28 m 2 

City location code number 

16, Birmingham, Alabama 

Liquid or Air system 

Liquid 

Total building load, GJ/yr 

100 MBtu/yr - 105,6 GJ/yr 

Commercial or Residential 
application 

Residential 


For this sample problem, it is cost effective to install a solar 
heating system. A life cycle cost savings of $2,915.18 is achieved. A 
cash flow diagram of actual yearly costs is shown in Figure 12. Positive 
savings are first realized in 1983 and "payback" occurs in 1987. The 
computer printout for the sample problem is also presented in Appendix 
A. Superimposed on the computer printout are notes explaining various 
output values. 


V. PROGRAM FLEXIBILITY 


The previous discussion of how to formulate and solve a user 
problem , together with the sample problem described , is intended to 
develop in the user a basic understanding of how to use the program. 
The program has been designed with the flexibility to solve a wide range 
of specific problems in evaluating economic feasibility. In this section 
those features of the program are described. 


29 







Figure 9. User problem input sheet - Section I sample problem 











V* V, 4 , 

No. Yrv 

START 

YEAR 

COLLECTOR 

COST 


LOCATION 

LIOUIO 
OR AIR 

TOTAL LOAD 
CJ/YEAR 

mrsM 

OR 

RE8IO. 

INPUT 

LIST 

REAL OR 
MARKET 

“Li#! 

cycle 

SAVINGS 

WHEN 

INFLATE 

PLOTS 


2 0 

1110 

IBS. 7 C 

1 8 

1 8 

1 

10 5.8 

0 

0 

0 





0 1 > 
0 . 0 • 

0.1 

0.02 

0.3 

« • . 2 ■ j 

DISCOUNT RATE 
INFLATION RATE 
. DOWN PAYMENT FACTOR 
PROPERTY TAX RATE 
INCOME TAX RATE 
COLLECTOR AREA 




rl 





to 


Figure 10. User problem input sheet - Section II sample problem 



CO 

to 


COST ELEMENT OATA INPUT 


6 

. 0 1 

1 0 

4 0 0 0. 0 
J 0 7 

1 0 0 0.0 
1 4 

20 .09 


block number 
COST OATA 
BLOCK NUMBER 
COST OATA 


ETC. 


1 I I | ..TO 

0 



Figure 11, User problem input sheet - 
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SOCIAL CASE INfUT 


LAST CARO 


Section III sample problem. 


YEARLY COST - DOLLARS 


7000 


CONVENTIONAL (FUEL COST ONLY) 


SOLAR (MAINTENANCE, FUEL COST, MORTGAGE, TAXES, CREDITS FOR TAXES & INTEREST) 



04 

CJ 


Figure 12. Sample problem cash flow 



TABLE 13. SAMPir PROBLEM RESULTS 


Solar System . *fe Cycle Costs 

Present Values 


Mortgage 

$ 8,393.69 

Property Tax 

2.773.38 

Maintenance 

1,386.69 

Downpayment 

1,000.00 

Conventional Fuel 

6,000.00 

Tax Credits 


Property Tax 

$ -832.01 

Interest 

$-1,637.07 

Total Cost 

$17,084.68 

Conventional System Life 

Cycle Cost 

Conventional Fuel 

$20,000.00 

Total Cost 

$20,000.00 

Life Cycle Savings 

($20, 000- $17 ,084.68) 

$ 2,915.32 

Conventional Fuel Savings 

$14,000.00 


A. Sensitivity Studies 

In the discussion of Section II data input , six cards arc described 
which contain the data input for: discount rate, inflation rate, down 

payment factor, property tax rate, income tax rate and collector area. 

To study the sensitivity of life cycle cost to any of these parameters, 
it is only necessary to list on each of these cards the starting value of 
the parameter, the ending value, then the increment by which the 
beginning value is increased in steps up to the ending value. A dash 
( ) separates the starting and ending values and an "X” separates the 
ending value and the increment. For example, to study in the sample 
problem the sensitivity of life cycle cost to collector area variations from 
30 m 2 to 60 m^ in increments of 5 m^ the card should read "30.-60. X5." 
rather than "48.28" as in the sample problem. The summary output table 
will now contain the results of all seven cases. Table 14 is an example. 
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TABLE 14. SUMMARY 
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01 
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• 
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. 
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40210.41 
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B. Plot Capability 

An x-y coordinate system plot capability is provided to display the 
results of a sensitivity study. In the Section II data input shown in 
Figure 6. there is a zero in Column 75. This indicates no plot is desired. 
When a sensitivity study is done for one of the six variables just 
described, then plots may be desired. Table 15 defines what plots result 
from inserting either a 1, 2 or 3 in place of the zero in Column 75. 

Figures 13 and 14 are examples of plots for the sample problem with 
collector area ns the sensitivity parameter. Only one of the six sensitivity 
variables can be plotted in a single execution of the program. 


C. Listing of Input Data 

If o listing of the input dota is not required, insert a "1" in 
Column 55 of the first card in Section II. Sec Section III. A. 2. for the 
discussion of inputing the first card in Section II. 


D. Life Cycle Savings 

Life cycle savings will not be computed if a zero is inserted in 
Column 65 of the first card of Section II input. 


E. When to Inflate 

Costs in the first year of the analysis will not be inflated if a "1" 
is input in Column 70 of the first card of Section II input. Normally, 
i.e. , with a zero in Column 70, first year costs are inflated. Whether 
or not first year costs are inflated is a matter of convention. 


F. Tax Credits for Energy Conservation 

Federal and State tax credits for energy conservation effectively 
reduce initial system cost. Therefore, in the user problem, the amount 
of credit can be deducted from acquisition cost before input to the 
program . 


G. Collector Performance Parameters 

The user may desire to use different values of F' xa and F' U T in 

K K L 

the GFL method or the percent solar fraction may be known. To use 
different collector performance parameters, it is necessary to insert one 
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Sensitivitv Variable 





PERCENT LOAD ACTUAL COST 



Figure 13. Performance and cost as related to collector area. 
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additional card as the new last card in the deck, i.e., following the 
previous last card with the zero in Column 4. On this new card there 
should be an "F” in Column 1 followed by the value of F' xa in Columns 
2-11 and the value of F'^Uj in Columns 12-21. 

If the percent solar fraction is known, a different single new card 
should follow the previous last card with a zero in Column 4. This card 
should contain a "P" in Column 1 followed by the percent solar in 
Columns 2-11. 


VI. PROGRAM DOCUMENTATION 


Formal computer program documentation to the standards of the 
Marshall Space Flight Center's Computer Services Office exists in 
Reference 8. The key features of the SHCOST computer program from 
a user's standpoint are described here. 


A. Definitions 

Discount Rate (or Opportunity Cost) — the rate of return foregone 
on the next best alternative investment. 

Present Value Cost — future cash flows which have been converted 
to present day dollar values by application of a discount rate. 

Actual Cost (or Real Year Cost) — the dollar value of a cost at the 
time it is incurred. 

Life Cycle Cost — the total of all relevant costs (either in present 
value of actual dollars) for acquisition, maintenance, and operation of a 
system over its useful life. 

Life Cycle Cost Savings — the net savings (either in present value 
or actual dollars) obtained by operating a solar heating system rather 
than a conventional system during the period of analysis; or mathematically, 
the life cycle cost of the conventional system minus the life cycle cost of 
the solar system. 


B. Equations 

The following terms may apply to either the solar heating system 
or the conventional system, depending on the user problem. The basic 
mathematical expression for present value (PV) is defined. 
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Acquisition 

PV = I 

where 


I = initial acquisition cost incurred for purchase, delivery, 
integration and installation of the system. With debt 
financing I becomes simply the downpayment. 

Building Modifications 

PV = BM 


where 


BM = initial, one-time cost for ouilding modifications. 


Net Replacement and Repair 


PV 



NRR. 

(l+d) j 


where 


NRR. = net replacement and repair cost in year j. 
j = 1 for first year of analysis and j = N for last year 

N = period of analysis in years 
d = annual discount rate 


Maintenance 



where 

M = maintenance cost in the first year of system life 
i = general inflation rate 


Conventional Fuel Cost 



where 

F = conventional fuel cost in the first year 
e = conventional fuel price escalation rate 
Property Taxe s 



where 

I = initial total system acquisition cost 

t = property tax rate which when multiplied by I gives first 
year taxes 

Add ed Incom e 

PV = -d-t)Y - ~-J 

d(l+rt) N 


where 


t = income tax rate 
Y = annual gross revenue 
Insurance 


PV 


(1 + d) N - 1 
d(l+d) N 


where 


P = first year insurance premium 
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Salvage 


PV = - 


.N 


(1+d) 

where 

S = salvage value of system at end of period of analysis 
Loan Payments 


PV = PMT 


N 

(1 + d) w - 1 


d(l+d) 


N 


where 


PMT = yearly mortgage payment 


PV = 

- pv pt t 

where 


PV 

PT 

= present value of property taxes 

Maintenance 

Expense Credits 

PV = 

- PV M ‘ 

where 


PV vl 

M 

= present value of maintenance expenses 

Depreciation 

Credit 

PV = 

t (I-S) ( 1+d ) N - 1 
N d(l+d) N 

Loan Interest Credit 

PV = 

Jl* MB. 8, 

t V-J-T 
< 1+d > 
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where 


MB. (mortgage balance) = MBj ^ - (PMT-MB._j£) 

l = loan interest rate 
Conv ent ional Fuel C ost Credit 

p V = - pv cfc t 

where 

= present value of conventional fuel cost 

Cv r L 


C. Flow Chart 


A flow chart of the program is presented in Figure 15 and a brief 
description of the function of each subroutine follows Figure 15. 

D. Listing 

A complete program listing is presented in Appendix B. 
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Figure 15. SHCOST flow chart 






















ACCNO Called by CALLID. Gets runs account number for 

plot. 

AMORTZ Called by SOLMAN. Computes the annual load 

payment. 

CALLID Called by SOLMAN. Calls system routine projid to 

get the run’s project ID and accno to get the run’s 
account number. 

CONCST Called by SOLMAN. CaUs SBLNK, DEPINC, SALVAG, 

TOTALS NETREP, ENERGY and TAXCST. Computes 
cost for conventional system. 

CSTDTN Called by SOLMAN, calls CYPHER. Reads cost inputs. 

CSTDTO Called by SOLMAN, calls IFPRNT. Displays cost 

inputs. 

CYPHER Called by CSTDTN. Reads and decodes cost inputs. 

DEPINC Called by CONCST and SOLCST. Computes deduction 

for commercial owner. Depreciation, rental, operation 
expenses and maintenance figure in computations. 

DIVVY Called by SOLMAN. Calls GFL and LOAD. Incites 

each case computation. 

ENERGY Called by CONCST and SOLCST. Computes energy 

cost. Cost for each type of fuel or energy source 
per year are escalated here. 

LIFCYC Called by SOLMAN. Computes life cycle cost. 

IFPRNT Called by CSTDTO. Prints cost inputs. 

GFL Called by DIVVY. Calls TABLE. Sizes solar system. 

NETREP Called by CONCST, SOLCST. Computes net replace- 

ment cost and maintenance cost. 

LEGEND Called by PLTDRV. Displays plot labels on CALCOMP. 

NFLATE Called by SOLMAN. Inflates cost input. 

PLOTS Called by PLTDRV, calls SKALE. Plots data, draws 

grid. 

PLTDRV Called by RESULT, caUs PLOTS, LEGEND. Establishes 

labels for plots. 

POSAVE Called by SOLMAN. Computes which year positive 

savings will occur and by how much. 

PROJID Called by CALLID to get runs project ID for plot. 

PVAC Called by SOLMAN. Totals yearly results 

Figure 15. (Continued) 
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RESULT 

RFPRNT 

SALVAG 

SBLNK 

SKALE 

SOLCST 

SOLMAN 

SUNRIZ 

TABLE 

TAXCST 

WBSIN 

LOAD 


Called by SOLMAN, calls RFPRNT, SBLNK, PLTDRV. 
Prints calculated results, generates plot data. 

Called by RESULT. Prints result data. 

Called by CONCST, SOLCST. Computes SALVAG 
values . 

Called by CONCST, SOLCST, RESULT, PVAC. 

Clears memory. 

Called by PLOTS. Scales plot data. 

Called by SOLMAN, calls SBLNK, DEPINC, SALVAG, 
TOTALS, NETREP, ENERGY, TAXCST. Computes 
cost for solar system. 

Main routine, calls CALLID, WBSIN, CSTDTN , DIVVY, 
AMORTZ, NFLATE , CSTDTO, LIFCYC, PVAC, RESULT, 
POSAVE, SUNRIZ, CONCST, SOLCST. 

Called by SOLMAN. Displays a summary of every case. 

Called by GFL. Contains data for each sight, liquid 
and air solar system. 

Called by CONCST, SOLCST. Computes total cost 
result for each year of each cost input, and adds 
those to total cost. 

Called by SOLMAN. Read data for WBS dictionary 
structure. 

Called by DIVVY. Loads cost data for storage. 


Figure 15. (Concluded) 
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APPENDIX A 
SAMPLE PROBLEM 



asWiTis 

SRG-bOOlN SL7SR1 10/01 / 7 9 20:16:10 
SM«COSt ,18532 

CALL TO St CURE N(^ RECCES SARJf^ ALL riLES ABE C AT ALO SUE 0 


A ADD .P ASSIGN. 


4 A S G.A 


SM*COST . 


cn 


4*0 T SH*C0ST. 

SHCOST 



1 

SAMPLE 

PROBLEM ' 


2 

11.0 

SOLAR SYSTEM LC COST 

2 

S 

21 . r 

ACQUISITION 

18 

9 

111.1 

. 1 COLLt C TOR 


~ 1 

191.1 

.20fHER COST ELEMENTS' 


6 

61.2 

maintenance 


7 

71.3 

CONV. FUEL cost 


a 

1S1.9 

LOAN PAYMENTS 


9 

191 . 1 

LOAN INTEREST CREDITS 


10 

• 1.6 

PROPERTY TAXES 


ii 

ll.l 

PfcOPERfT f A* CREDITS 


12 

1012.0 

CONV. SYSTEM LC COST 

107 

n 

in# 2 . i 

conv. fuel cost 


i« 




IS 

20~ 

1980 165.70 1* 16 


lb 

U.l 



n 

0.06 



18 

li. 1 



19 

0.05” 



2J 

0.3 



_ 2l' 

9F.j» 



22 

6 



* 2 J 

.31 



29 

7 



n 

a 



2b 

9 



27 

is 



2 A 

19 



29 

21. 



SO 

.09 



SI 

19 



12 

2000.00 


is 

io? 



39 

1000.00 


S S 

.1 



Sb 

0 



NORMAL 1*11 

CPU: 

397 SU»S: 



7 IS 16 


2617 IMILLlS'CONnsi 


0 


0 


410 T SM»COST .COST 


i»RPLE PROOLEH 


OCI. I* »T» 


O.O.I 


MOS DICMWIIT 


1 

1.0 

SOLO* mllN LC COST 

2 

1.1 

ACOUlSI T10M 

10 

l.i.l 

COLLECTOR 

i* 

l.i.z 

OTHER COST ELE HERTS 

0 

JLJ 

RA1RTERARCE 

T 

l.l 

COR* / FUEL* COST 

IS 

l»S 

LOOR PA THE RTS 

10 

1.0 

Loir interest creoits 

0 

1.0 

PROPERTY TRIES 

t 

1.7 

PROPERTY TRI CREOITS 

IVI_ 

i.-a 

COR*. ITSfER LC COST 

10? 

2.1 

COR*. FUEL COST 

* - 1 

__ . . _ 





OCT 


1. »»/ 9 


16 . 1.2 


SAMPLE PROBLEM BIRMINGHAM) ALABAMA 


THIS HEATING VENTILATION AND COOLING ANALYSIS 
WIlL COVLR" 20 YEARS BEGINNING WITH 1980 AND ' 

ENDING WITH 1999 

THE Discount RAfE Yo BE APPLIED to fHE ANALYSIS IS — - 10.00% 

THE INFLATION FACTOR TO BE APPLIED TO THE ANALYSIS IS- 6.UL' 




OCI 


1, 1 9 T9 


16.1.3 


10$ .60 6J/VP 
TO. 00* 
8000.00 


2000 .00 


100.00 


3Q0.01 

10 . 00 * 


AMPLE PROBLCM 


BIRMINGHAM, ALABAMA 


OC I 


1 , 1979 


16.1.4 


1.4 LOAN PAYMENTS 


MARKET INTEREST RATE = .001 

ANNUAL PAYMENT r 98$. 92 


l.S LOAN INTEREST CREDITS 


Ol 



1 .6 PR0PtJ»TYTAXES 


RROPERTV TAX RATE = 2.00* 

ASSESSED VALUE = 10000.00 


1.7 PROPERTY TAX CREOlTS 


* ROPE RT V TAX RATE = 2.001 

INCOME TAX RATE Z 30. 00* 

ASSESSED VALUE Z 10000.00 


A 


SAMPLE PROBLEM 


BIRMINGHAM, ALABAMA 


OCT* I* 1979 


16.1.5 




LISTING or. COST OATA INPUT 


2.0 CON V • SYSTEM LC COST 

2.1 CON*. FUELCOST 


M CONY, FUEL COST 


ANNUAL FUEL COST = 
ESCALATION FACTOR = 


1000.00 

10 . 09 * 



SAMPLE problem 


BIRMINGHAM ALABAMA 


1.0 RESULTS FOR SOLA R S YSTEM LC COST 


1.1 ACQUISITION 

C OST S OVER THE 20 YEAR S OF THE ANALYSIS _ 


I HE DOWN PAYMENT = 1000.01 

lO.OOt OF THE TOTAL COST 


_ _ J.2 MAINTENANCE 

COSTS OVER The 20 TEARS OF THE ANALYSIS 

PRESENT^ VALUE _= 1386. 69 

ANNUAL COST S i62.B8 

ACTUAL COST = 3899.27 

S PRESENT VALUE AND ACTUAL COSTS BY YEAR _ _ 


YEAR 

PVCOST 

ACTUAL 

1980 

96.36 

106.00 

1V8 1 

92.86 

112.36 

1982 

89.96 

119.10 

198 3 

86.23 

126.25 

198N 

83.09 

133.82 

i ,j es 

8U.07 

191.85 

1986 

77.16 

ISO. 36 

198 7 

79. 35 

159.38 

198 8 

71.65 

168.95 

1989 

69.09 

179.08 

1990 

66.53 

189.83 

1991 

69.11 

231.22 

1992 

61.78 

213.29 

199 3 

59.59 

226.09 

1 Q 9 9 

57.37 

239.66 

1995 

55.29 

259. U9 

1996 

53.28 

26?. 28 

1997 

51.39 

285.93 

1998 

99.97 

302.56 

l 999 

9# .67 

32U.71 



I 


SAMPLE PROBLEM 


[ RHINO' 


OCI. It 1979 


16.1.7 




CM 

-A 


1.3 com. FUEL COST 
COSTS OVER THE 20 TEARS OF THE ANALYSIS 
PRESENT VALUE = 6000.1S 

ANNUAL COST =” ~ 706.76 ' 

ACTUA L COST _= 16901.21 _ 

PRESENT VALUE ANO_ACTUAL COSTS 8Y TEAR 


TEAK 

PVCOST 

ACTUAL 

1980 

300.01 

330.0J 

1961 

300.01 

363.01 

1962 

300.01 

399.31 

1963 * 

300.01 

939.29 

1969 

300.01 

963.16 

1965 

300.01 

531.98 


ISft.01 SM.6J _ 


196 7 

300.01 

693.09 

1966 

300.01 

707.90 

1989 

300.01 

778.19 

1990 

300.01 

655.96 

1991 

300.01 

991.55 

.1992 

300. 0J_ 

1035.71 

1993 

300.01 

1139.26 

1999 

300.01 

12(3.21 

1995 

300. oi 

1378.53 

1996 

300.01 

1516.36 

1997 

30J.01 

1668.02 

1996 

300.01 

1839.82 

1999 

300.01 

2018.30 

— ■ • - 

. 

— 


SAMPLE PROBLEM 


BIRMINGHAM, ALABAMA 


COSfS OVER THE 20 

TEARS OF THE ANALTSIS 

PRESENT 

VALUE = 

8393.68 

ANNUAL 

cost = 

985.92 

ACTUAL 

COST r 

197J8.36 

PRESENT 

VALUE AND 

ACTUAL COSTS 9V YEAR 

- tear 

PVCOST 

ACTUAL 

198U 

896.29 

985.92 

1981 

819.81 

985.92 

1982 

790.73 

985.92 

198 3 

673.90 

985.92 

198 8 

612.18 

985.92 

198 5 

SS6.52 

985.92 

1986 

505.93 

985.92 

198 7 

959.99 

985.92 

1988 

918.13 

985.92 

198 9 

380.11 

985.92 

1990 

395.56 

985.92 

1991 

319.19 

985.92 

199 2 

285.59 

985.92 

1993 

259.62 

985.92 

1999 

236.02 

985.92 

1*95 

219.56 

985.92 

1996 

195.06 

985.92 

1997 

177.33 

985.92 

1998 

161.21 

985.92 

1 799 

196.55 

985.92 


OCT 


SAMPLE PROBLEM 


BIRMINGHAM • ALABAMA 


1.5 LOAN INTEREST CREDITS 
COSTS OVER THE 20 TCARS OF THE ANALYSIS 
PRESENT VALUE = 1637.07 

ANNUAL COST = i 92.2V 

ACTUAL COST = 3215.51_ 

PRESENT VALUE AND ACTUAL COSTS BT TEAR 


TEAR 

PVCOST 

ACTUAL 

1 98 G 

220.91 

293. OU 

1981 

196.90 

238.25 

1982 

17S.ll 

233.07 

198 3 

155.39 

227.93 

1 v89 

137.90 

221.28 

1 98 S 

121.12 

219.57 

1986 

106.36 

207.27 

198 7 

92.97 

199.30 

1988 

80.89 

190.62 

198 9 

69.89 

181. IS 

1 99 ij 

59.88 

170.89 

1V91 

50.85 

159.59 

1992 

92.68 

197.39 

i 99 3 

3S.28 

133.98 

1999 

28.59 

119.91 

199S 

22. S3 

1U3.S9 

1996 

17.06 

86.29 

1997 

12.12 

67.38 

1998 

7.66 

96.83 

1999 

3.63 

29.92 


SAMPLE PROBLEM 


BIRMINGHAM, ALABAMA 


OCI. I, 17 79 


16.1.10 


o> 

o 


1.6 PR0»£RTV TAXES 
COSTS OVER THE 20 TEARS OF THE ANALYSIS 
PRESENT VALUE = 2773.38 

ANNUAL COST = 325.76 

ACTUAL COST = 7798.59 


PRESENT VALUE AND AC TUAL COSTS BY YEAR 


YEAR 

PVCOST 

ACTUAL. 

19BU 

192.73 

212.00 

~PJbI 

1SS.72 

229.72 

1982 

178.97 

238.20 

1 98 3 

172.96 

252.50 

198 9 

166.19 

267.65 

"1 98 S 

160.19 

283.70 

198 6 

159.32 

300.73 


198771 

3 is . 7 7 

198 8 

193.30 

337.90 

1989 

lfR.l)? 

3 58. i 7 

199 0 

13J.07 

379.66 

" 1 99 i 

128.23 

902.99 

1992 

123.57 

926.59 

I 99 3 

119.07 

9S2.18* 

1999 

119.79 

979.31 

1995 

liO.Sf " 

508. U7 

1996 

106. SS 

538.55 

1997 

102^68 ' 

57b. 87 

1998 

98.99 

605.12 

ivT? 

$5.39 

'691.93 



»*NPLt PROBLEM BiRMfNeHAN, 


OCT. 


1.7 PRORjRTV TAX CREDITS 

cosfs OVER the 2o tears of the analysis 

PRESENT VALUE = 832.01 

ANNUAL COST = 97.73 

ACT UAL COST =_ 23 39.56 

PRESENT VALUE AND ACTUAL COSTS BT TEAR 


TEAR 

PVCOST 

ACTUAL 

198 0 

S7.82 

63.60 

1981 

5S.72 

67. A2 

198 2 

S3. 69 

71. A6 

198 3 

S1.7A 

75.75 

1 98 A 

A9.86 

80.29 

198 5 

A 8.0A 

85.11 

1986 

A6.30 

90.22 

1987 

AA .61 

95.63 

1988 

A2.99 

101.37 

1989 

A l • A 3 

107. AS 

199 0 

39.92 

113.90 

1991 

38. AT 

120.73 

1992 

37.07 

127.98 

1993 

35.72 

135.65 

1 99 A 

3A.A2 

1A3.79 

199S 

33.17 

152.A2 

1996 

31.97 

161.57 

199 7 

30.80 

171.26 

1998 

29.68 

181. 5A 

1999 

28.60 

192.93 


1, 1779 




sample problem ' S1rhIN6haM ALABAMA ~ 


OCt. 1, 1*7* 


16.1.13 


t***M*t»«M*»»*****M»*»»**t*»*»*M«*****»»«M»**»»**»M*»*»*M«»»***»»«M»«**»**«*«**t«*«*«»M«MM**»******»***«»»»**»»***ll»«»«» 

2.0. WE suits rot CON*. SYSTEM LC COST 


2.1 

COSTS OVER THE _20 TE ARS Of THE ANAL TS IS 
PRESENT VALUE = 20000.00 

ANNUAL COST r 23*9.19 

ACTUAL COST *= 63002.9* 


CONV. FUEL COST 


PRESENT VALUE ANO ACTUAL COSTS BT TEAR 


TEAR 

PVCOST 

ACTUAL 

I9B0 

Ipoo .oo ' 

lion. 6b 

19i 1 

luOO.OO 

1210.00 

1982 

iuou.co 

1331.00 

1983 

1000.00 

1969.10 

1V89 

iuou.iio 

Uia.si 

1 98 S 

1000.00 

1771.56 

i9«6 

luou.oo 

1*98.72 

198/ 

luou.oo 

2193.59 

1908 

1J00.00 

2357.95 

198* 

1 JO 0.00 

25*3.79 

19*V 

1000.00 

2i53.12 

19*1 

1 J00.00 

3138.93 

19*2 

1 iCO.OO 

3952.27 

19*3 

loOQ.OO 

37*7.50 

i 9*9 

iuou.oo 

91 f 7. 25 

l**S 

1 J00.00 

95*9.97 

19*6 

udo.uo 

5059.97 

19*T 

1(0 0.00 

555*. *2 

199 8 

i joo.co 

6ii5.*i 

199* 

1U00.00 

6727.50 


r**At£ -WoeUr* - 


BIRMINGHAM, ALABAMA 


JCT 


1. 1*7* 


IG.1.1* 


2.0 COM*. STStLM LC COST 

THE PRESENT VALU COST Of THE SYSTEM* Is-- 203)0.00 

The a nnu a Cl » e o cosT oT TMtsTsitM is — —' ijri.tt 

THE ACTUAL COST OF THE SYSTEM IS 63032.** 

COSTS B * YEAS 

YEAR PVCOST ACTUAL 


i*ao n.oo.oo noo.oo 

i*il ntfr.Bo mol 6o • 

1 *B2 1UOO.OO 1331.00 

l«*J ITtOt.UO " i* 6* . iO 

l*a* 1 1 oo.oo _ 16 ip. si 

i*as i i*)d.oo i7fi.S6 

1**6 !, vJOO. 00 l*«a.72 

I *¥T “joff.ofl «*!.?*“ 

i*aa iuou .00 23st.*s 

Hi* VuOO.BB 25*3.7* 

1**0 1000.00 2*53.12 

1**1 ' iuou.oo "li sa. *3 

1**2 1U03.00 3*52.27 

f*TT — TCoBToff IT*T75ir 

1**« 1300.00 *177.25 

1**5 ' lUOO.Ob *5**. *7 

1**6 11(00. GO 505*. *7 

i*«v ilbo.oo 555*. *2 

l**a 1 000,00 6 115.*! 

i*** 1 COO. 00 6727.50 


••••••••• •••••••••••••••••*•••••••••••••••••••••••••• •••••••* 6 •••••••»••• ••#••••*••••••••••••••••••••••••••••«•••••••«• •«•••••••••« 

LIFE CYCLE COST SAVINGS 

PYESENf • S 2*15.1* 

ACTUAL = 172*3.17 

ANNUALISED X 3*2.42 

the present value fuel savings : is***. as 

the actual Fuel savings = *< 101.2a 

THE ANHUAL I2E0 FUEL SAVINGS : 16*4. *2 



SAMPLE PROBLlN ~BI uNINGHAN AL ABANA OC1. I, l*7t 11*1*15 

••••••••••••••••••••••••••••••••••••••••• 

IN TEAR ms P OSIT IVE 5*0 IN6S kKl OCCUR BT 

AN ANOUNT OF 25.7* INTERNS OF PRESENT * .LUE * DOLL ARS 

IN TEAR l«as POSITIVE SAVINGS WILL OCCUR BT 
AN ANOUNT OF *1.53 IN TERNS OF ACTUAL DOLLARS 

CuNULATIVC SAVINGS BT TEAR 


TEAR 

PRESENT VALUE SAVINGS 

ACTUAL SAVINGS 




1**U 

-WU6.fr T 

-1227.3* 

1VB1 

-13*7. *5 

-13*7. GB 

IU2 

-1*27. B* 

-isin.fra 

1113 

-1*52 .AS 

-15*1.30 

1*1* 

-l«2T.0fr 

-1 * ** . 7 7 

1**5 

-13S«.fr5 

-1371. *a 

l**fr 

-123*.* 1 

-ll*fr.*l 

1**7 

-10t*.B3 

-ais.sfr 

1 *AB 

-B**.OB 

- 3frS • 7 * 

1*** 

-fr 7li.O 7 

215.2* 

1**0 

-*1S.«« 

**1.73 

mi 

-132. fr2 

i a 2 * . 3a 

1**2 

1 7fr . 1 * 

2**5 •** 

1**3 

50*. *5 

* 1 5* . 1 0 

i*** 

Bfr 3.S2 

Sfr*i.«» 

1**5 

123*. 0* 

73bS.aS 

im 

lfr33 .2 3 

*35*. 00 

1 ** T 

20**. AO 

llfrfrfr . 32 

1 **i 

2*72.52 

i* 2 fr? :e 

!**•_ 

2tlS.ll 

172*0.17 



— 




SAMPLE PROBLEM " BIRMINGHAM, ALABAMA ~ ' "" OC 1 . It 1979 lb. 2. 16 

SUMMARY 

- - BIRMINGHAM, ALABAMA 


01 SCOUNT RATE _ = 10.00* 

INFLATION RATE = 6.03* 

DOWNPAYMENT = 10.00* 

PROPERTY TAX RATE = 2.00* 

INCOME TAX RATE = 30.00* 

COST PER SO. METER 8165.73 

FOR THIS CASE, VARY IS THE COLECTOR AREA. 6J/YR 


05 

05 


SECT VARY PERCNT TOTAL ACTUAL COS? PRESENT VAL COST LIFE CYCLE COST SAVINGS LIFE CYCLE FUEL COST 

_N0^ LO AD LOAD SHVAC „ _ ChVAC _ SHVAC _ JCHVAC. „ PRESENT ACTUAL ANNUAL PRESENT ACTUAL ANNUAL 


1 MB. 3 70 . 00* 73. 92 *S762.32 6_3002.»_9 170M.B2 20000.00 2915.18 172*0.17 3*2. *2 13999. BS **101.28 16**.* 

NORMAL EXIT CPU: 2*36 Sl*Sl * 8*72 (MILL iSECONOS I 
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?5«5(!>78 7!>123*5fc7«'»ai?3A5M«r>l»m*7A73l2j85A7* ? i>|; ? j*S6 7A?0i2J%5*M90»*S£a ^ 


^MUStP %HCOST SOURCE L1* T 

5 PRT » S A. AAOR XI 
HJRPUR ?7R JAM A 


EJI 5175*1 B77JS/7? |7;3*:i« 


oncost SOURCE LIST 


OaTE 0920? V 


WISE 


05 

to 


SH*CO 


T< 1 I.AMOMTZ 


1 SUBROUTINE AMORTZ 

2 INCLUOE PARS 

3 1 C IIRCI»IRC?.E0.0I SO TO 990 

A READ 1 0 *IRC1 » ERR =400 1 ISUB . CODE * T ITLE * COST 

5 REAOI 8’IRC2.ERR=630» ISA.AC00E.ATITLE.AC9ST 

6 CM* COMPUTE THE AMORTIZED PAT RENTS ANO PLACES 0UTSTAN0IN6 

7 C*** MORTSASi ON UHICM INTEREST IS PAID IN TEAR « I > IN COS? 

0 ArCOST 111 

9 N=COST(2I»O.S 

0 C0ST(NrR«ll=C0STI3> 

1 ACOSTINTRM l=AC0STI3l 

2 AC0STINYR*2I=AC0STIAI 

3 C0STINYR»2I=C0STI«| 

A C ••• COMPUTE ANNUAL PAYMENTS 


0 


IOC 


25 29b 

20 60b 

27 SOI 

28 
29 

U AT A (SNORED - IN 


PAY = A*<COST<N?RMI/<l.9-<1.3»COSTINYR»t 
ACOSTI ItrPAT 

00 190 K=2 »NTR 
ACOSTI A):PAT 
KKrK- 1 

C 0 STIRI=C 0 STIRK)-IFAT-C 0 STIATR«n«C 9 STIRR (I 

mCOSTIKI .LT. I.0»C0STIKI=0.9 

CONTINUE 

URI TE I 8* IRC I *ERR=OOOI ISU9.C90E# TITLE »C9ST 
UR ITEM* IRC2'ERR=600> ISA. ACOOE. AT ITLE • ACOST 
RETURN 
URITEIO.OOtl 

P0RMATI5X. •ERROR IN AMORTZ* I 
RETURN 
EN3 

CONTROL MODE 


APRTtS A. CALL I D 

r URPUR 27R3AHA E 33 SLT3RI 09*28/79 


SHCOST SOURCE LIST 



Till .CALL I 0 


0 

1 

2 


1941 


20 

21 

22 

23 


SUBROUTINE CALL! 0 
CHARACTER*!? N 
CHARACTER** Nl tN2 1 E t 7 
CALL PLOTIO.OtO.Ot-31 
CALL PL0TI1.0tl3.nt?) 

CALL PL0TIS.9il0.nt2l 
CALL PLOT! M.J.D.U 
CALL PLOTSO.OtO.Pt?) 

CALL PROJIOINI 
OECODE 1 12« lOOtN > NltN? 

P0RNATI2AAI 

CALL STRB0LI2.9tS.0t .?BAtNI tO.Ot A1 
CALL STNSOL l9.AtR.Ot.986tN2tO.3t A) 
CALL ACCNOfNI 
OECOOEI 12tl00tNl NltN? 

CALL S VRBOL l?.3t*.Ot.?86tNlrO.OtA) 
CALL STRB0LI9.AtA.0t. 9SA tN2 1 0.9 1 A t 
CALL SCL0CKINItN2tEt 7 l 
CALL 9TRB0LI2.3t«.9t.2BAtNl 1 0.3. A I 
CALL STRBOL 19. At A. Of .28 A tR ? t O.C t A! 
CALL PLOT! 13.9t3.0t-3) 

RETURN 

END 


OATA 


SNORED 


IN CONTROL ROOE 


aPRTtS A.C0NCS1 

FIIRPUR 2 7R 3 AHA EM SLT3R1 39/28/79 12:98!A* 


UATE 0928T9 


PAGE 


2 



SHCOST SOURCE LIST HfC tfMM 


SH*COSTtl) 

.CftNCST 


1 

SU9N0UTINE CONCST 


> 

INCLUDE PANS 


9 

C COST Oft I TEN C 0R CO SUNS CONVENTIONAL STSTEN 


ft 

INC|rl09 


5 

€••• TOTAL COSTS INTO UPPER LEVEL 


* 

CALL TOTALS 


T 

IftCI = 1 9 3 


• 

CALL TOTALS 


t 

IPCl=l|« 


IN 

CALL TOTALS 


II 

c netneplacenents 


19 

IRC 1=1 09 


IS 

INC 9=1 Oft 


I* 

CALL NETREP 


IS 

IRC1=197 


1* 

C*ft« COMPUTE ENEROT COSTS BT TEAR PON PV AND PON EACH SUBLEVEL 


IT 

CALL EVER6T 


IN 

IRCISlOO 


1* 

IRC9SI90 


90 

1RC3=1 11 


91 

IRC«=119 


99 

IRC9=1 1 ft 


93 

Cftft* COMPUTE COSTS 0= TARES AND DEDUCT IONS -RON TARES 


H 

CALL TARCST 


93 

IRCI=1I0 


9ft 

INC 9=0 


9T 

C*ftft COMPUTE DEPRECIATION DEDUCTIONS 09 AOOED INCOME 


9ft 

1RC9=119 


9» 

IRCft=llft 


90 

IPflC0M.E0.lt CALL OCPINC 


91 

IRCI=119 


52 

t«*» COMPUTE SAL VASE VALUE A=TER N TEAMS OP ANALTSIS ••• 


99 

CALL SftLVAS 


9ft 

1VU IRC1=10I 


99 

C*«« ADO ALL SUBLEVELS P 0R THE T9TAL PV AND AC 


3* 

CALL P VAC 


3T 

return 


99 

END 



fUTA ISMRO - IN CONTROL HOOE 


MH 9 


5PRT.S A.CSTDTN 
r UN PUN * 7R9«H« 


t 33 SL79RI O 3/99/13 l?:SN:f| 


SMC OST SOURCE LIST 


0 A TE 092873 


RAGE 


A 


•R 

to 


SH*COSTI I ». 
1 
2 
3 

A 

3 

6 

7 

8 
9 

10 
t 
? 

3 
« 

5 
A 
7 
a 
3 
0 
1 
2 
3 
A 
?3 
26 

27 

28 
PA 
10 

11 

12 


REQUIRES COST DATA 


CSTIiTN 

SUBROUTINE CSTDTN 
INTEGER CNT 
COAAON/N'LT/CLATE 
CONNON /G F L2/ XSTART.XSTOP.XSTEP 
INTEGER TTPE 
INCLUDE PARS 

CONNON/INPUTS/COST IN C 900. 31 
C READ OATA IN FOR EACH WAS BLOCK WHICH 
C READ NTR START TEAR AND OISCOUNT RATE 

r DISCOUNT RATE DISC SHOULO BE INPUT AS OECINAL FRACTION NOT AS « 

C ICON r 1 I- H VACS ARC CONNERC IAL ELSE ICON = 0 

C CHECK NTR AGAINST ITR IN PROC PARS BEFORE XOT 

C OATOPT = I C 0R COST OATA OUTPUT SUPPRESSION 
C* • • n. ATE= INFLAT ION RATE EXPRESSED AS FRACTION 

CAP* IOSCO INDICATES OISCOUNT RATE IS NONI NALT NARKET I RATE AND 
C»*» 01SC WILL HAVE THE INFLATION RATE SUBTRACTED FRON IT 
C«P* IDSC NOT = 0 INDICATES DISC IS REAL RATE 

C**P I NR GV = I INDICATES ANAL TSS I IS CORPRRISON OF ENERGY COSTS AND ICI 
C*P* AND I C 2 CONTAIN COSTS ALREAOT CONFUTED TO BE USEO r 0R STSTCN COSTS 
C*«« IN LIFE cycle cosys 

C*** IL e CY=| INDICATES L|FC CYCLE COSTS ARE REQUESTED 

C*p* 1 0 ISC - 1 INDICATES INFLATION RATE IS TO BE APPLIED 

C*pp A C TER THE r IRST YEAR. .. . IDISC/=/ I INDICATE C IRST YEAR INFLATE 

£•••••• READ NYR START YEAR DISCOUNT A AD INFLATION FACTORS 

100 CONTINUE 

READ! St HD) NYR t I YRSTt CSTPS Rt CLT m Nt LCNt LOAt XLOAO 
•tICORtlATOPTtlOSCt IL-CY.IOISC 
•tIPLOTS 

CALL CYPHER TOSSTRT tOSSTOP tOSSTEP ) 

CALL CYPHERIFTSTRTtFTSTOPtPTSTEPI 
CALL CYPHERIDPSTRT.OPSTOP.DPSTEP) 

CALL CYPHERIPTSTRTtPTSTOPtPTSTEP) 


13 

15 

16 

17 

18 
IV 

\ 9 

15 

16 
i T 

8 


CALL CYPHERTTSTARTtTSTOPtTSTEPI 
CALL C YPHERTXST ARTtXSTOP tXSTEP ) 

C DS = OISC - DISCOUNT RATE 

C FT = FLATE - INFLATION NATE 

C DP = OUNPNT - DOWNPAYNENT 

110 F0RNATI2I5tF|O.0»3I5tF|0. 0*7131 
I PL TOP: I 

IFiDSSTEP.NE.OtO) IPLT0P=2 
IFTFTSTEP.NE.N.SI IPLT0P=3 
1FI0PSTEP.NE .0.0) IPLT0P=A 
I- TPTSTEP.NE.D.D) 1 PL TOPrS 
IFITSTEP.RF.O.O) IPLT0P=6 
I r T N YR .GT. IY) 30 TO 32 
IF tOATOPT .NE. 1) OATOPT = 0 
C IBLK=NLOCK A OF DATA TO FOLLOW 
2D CALL SBLNK 

REAOINtlll) I3LK 
IFIIBLK.EO.O) GO TO 999 
NUN-0 

1FTIBLK. GT.1SI7.AND.IBLK.lt. let. OR. IBLK.6T.ICt6) GO TO I 
I c f INLK.GT. 103) GO TO 2D3 

GO TO 120*1*1*1*29*1*20*20* 2Ct2tlt3tlt 2*20*20*20 It IBLK 
230 30 TO (23. 1*1*1*29*1*2*93. 20. 9. 9*1*9.93, ?0. 2)). INLK-190 


SHCOST SOURCE LIST 


DOTE 0*207* 


MBE 


5 


co 


70 


3 NUH=NUM«| 

2 NUN=NUR*I 

t NUM=NUN»I 

IFt IBLK .EQ .IS5 .OR.IBLK.EO. IC5> 63 TO 20 
NEAOI 5*5901 (COSTIN(INLK*III*II=t • NUN) 

50b FOMUTU 

GO TO 20 
20 CONTINUE 

C*** SET INOEX -OR READING CARO ON p|9.9 
Ns I 
RslO 

C*** LOOP POR 1CR0S NUMBER OP CAROS 1A THIS BLOCK 
MKsMNTR-l l/IOI»l 

00 30 I=I.P* 

C**« RE AO I*TN CARD 

READ (9*1121 (COST (•)) * J=N»A> 

112 FORMAT! 10 e 8.2l 
C**» CHANGE INOEK POR NEXT CARO 
N=M*| 

MSM*1R 

30 CONTINUE 

C*** WRITE DATA ON 01PECT ACCESS 
I TUOsLI 

1 Art 2 

RE*0(R*IBLX*ERR = AT>9> ISU9.C00E* TITLE 
UR ITE! 0* IBLK • ERR =600) ISUM*COOE»T ITLE »C OST 
C REAO NEXT BLOCK 
GOTO 20 
32 WRI TC( A* 3* ) 

STOP 

3A FORMAT! IH1. ’NUMBER 0- TEARS 3P ANALYSIS EXCEEDS THE PARAMETER** 
•* IT. UPDATE IT OR CHAN6E THE NUMBER OP TEARS FOR ANALYSIS.** /• 
♦•THIS RUN WAS SELP TERNIRA TEO. • • / I 
111 FORMAT 1 1 
AOO WRI TE ( 1 * AO t I 

A01 FORMAT (5X* *ERROR IN CSTDIN*) 

**9 CONTINUE 
RETURN 

C 0EBU3 SUBTRACE* INITICOSTI 

C AT 100 

C TRACE ON 

ENO 


aPRT.S A.CSTDTU 


O' VA 


SMCOSr SOURCE LIST 


oaie o??3T? 


PAGE 


SM»COST I 1 > .CSTUTO 

I 


SUBROUTINE CSTOTO 
INCLUDE PARS 
CONNON /N r L T/ C L»TE 
COMMON /IPI /IP 
OINENSTON NINMM 

DATA NIN/2.2.2.7.7.7.3.3.A.A.A.A.A.A.3.A.A/ 

READS HIGHEST LEVEL AND TRACE THROUGH EACH BRANCH TO COST OA (A 


I r THIS ONLY AN ENERGY ANALYSIS COST DATA 
FOR 1 HI ENERGY LEVELS IS PRINTEO 


I F | [NR GY .ME. II GO TO *0 

IRC 1 = 1 St 

CALL PAGES I 99 I 

CALL PAGES ! 21 

UR ITE I A* 100 R I 

- ORM» It IX. 132 ! *•* II 

REA 0 I 8 ’ IS 1 .ERR= 700 ) ISUB . COOE • T I T LE . C OS T 

CALL PAGES! I I 

UP ITEI A. ICOT) CODE. TITLE 

IF((COST( ll*C 0 ST(?|»C 0 ST( 3 M.E 3 . 9 l GO TO IS 
CALL PAGESI 5 I 

URITEIA.no? I C0DEiTITLE»tC0ST!LI»L=l.3l 
OP ?P 11 = 1. *1 

I - • I SUN! Ill .LE. *11 GO to 70 
ML = ISUB I II 

IMKL.GT.ItOI RLULM 
NUMrN INI Ml I 
CALL PAGES! NUMI 

RFA D I A • 1 SUNIII).FRR = 700 > I ST »C OOE »T I TIE » COST 
1=11 

CALL IFPRNT 
CONTINUE 
I RC t = !C 1 

REAOIMMCl .ERR = 70 f>» ISUN.COOE.TI TLE.COST 

CALL PAGES ! I I 

WRITFIA. 100 TI CODE. TITLE 

FORMAT! IX. 31 . AH . 2 V. AAAI 

I -II COST! ll*COST 171 .COST ! 31 I .LE . 01 GO TO 3 ) 

CALL PAGES 151 

WRITE! A * 1009 1 COOE. TITLE. ICO ST! L 1. 1 = 1.31 
PO 35 11 = 1 . XI 

I-IISU 3 I 1 II.LE. 9 I GO TO 35 

REA 0 IB*ISU 9 I III. ERR =7001 1 SE. C ODE . T 1 TLE .COST 

1=11 

CALL IFPRNT 
CONTINUE 
RETURN 
WPITEIS.AOI I 

F 0 RMATI 5 X. TERROR IN CSTOTO*) 

RETURN 

FORMAT! 1 X. 3 X.A 5 . 7 X. AAA./»?X»*COST INPUT OF THE SYSTEM*. /» 
♦ 71 .* PRESENT VALUE =*.f| 2 , 7 ./. 

♦ ?X » • ACTUAL COST =**F|?.?»/» 

»7*,« ANNUA! TOBY -..= 17.71 


ONCOST source LIST 


OR IE 0*1171 


tik 


7 


cn 


M AB I RC 1 = 1 SI 

37 

M C*tt HERE I- RUM IS REGULAR MtirSIS 3 r STSTERS 

5 ? 

U r llf:FLITC*IOB.I 

*1 0SC=DISC*100.0 

*7 Cm* WRITE STAROARO OATA 

AS CALL BA0CSI001 

A« WRI TE( At I IS I RTR*irRST*irR(RTRI.OSC*’LAT 

AS €••• WRITE SUBLEVELS 

AA SB RfAOIBMRCI » ERR = TOO I ISUB.COOCt T ITLCt COST 

AT CALL BA6CS TOO) 

AS CALL BASESIAI 

AV WR ITE I A* ICO! 

70 CALL BASEST 1 1 

71 WR ITEI A* 1011 COOC. TITLE 

77 DO AD II=«tK| 

73 €•••«••••••• WRITE SUBLEVEL COOES ABO T ITLCS •••••••••••* 

T« I C T I SORT I tl.LE.O) GO TO AO 

7S REAOI A* I SUB 111 I tCRR=TQOI ISC »C OOE* T I TLE 

7A CALL BASEST 1 1 

77 WR ITE T At 1031 COOCtTITLE 

70 AO CORTIOUE 

7V C REIT LEVEL 

00 00 ABB 1=7. R| 

01 1BTISUBIII.LE.0) 60 TO AOO 

• 7 REAOT 0* t SUBT 1 1 #ERR=73B I I SA t C9BE t Tl TLE tCBST 

03 C**« WRITE CODE TITLE BOR THIS LEVEL 

BA CA*A DE TERR I BE TTBE 0* OATA 

OS RLrISUBf I) 

RA IBTRL.3T.II01 RL=RL*1 

07 IFTRL.GT.I001 RL=*L-1©0 

00 RUR=RIRIRLIo| 

B* IBTRL.EO.S.OR JtL.EO.IAl RUR=RUR«RTR 

00 I C T ISA! 7I.LE.0 .OR. COSTTtl .ST. 01 03 T9 SSO 

01 CALL BA6ESTAI 

07 WRT TE I At 107 1 COOE. TITLE 

03 I FT I SUB T II .CO .IRC I *1 .OR . I SUB T II .EO. IRC! *7 .OR. 

OR *ISUST II.E0.IRCto3.0R.ISUBTII.E0. IRCI»S .90. ISUSTII .CO. IRCtofSI 

OS • SO TO ISO 

OA l r T I SUBT 1 1 .CO. IRC 1*7. OR. 

07 «ISUBT Il.CO.IRCI «0 .OR .ISUB I II .CO. IRCI«0 .9R. ISUB 1 1 I.C0.1RCIM3 

00 ♦ .OR. ISUBtll .CO. IRCt»|AI 09 T9 BOB 

00 l r T ISUOT II .CO .1RC1 *A1 60 TO 300 

100 I r 1 1 SUB 1 1 1 .CO. IRC! »A 100 TO 009 

101 60 TO SSO 

107 C ACQUISITIORS BL03 BOOS SBACE 

103 C*«* SEARCH LOWER LEVELS FOR DATA 

190 ISO 00 109 J-StR I 

10S IM ISAI J» .LC .OI 60 TO 100 

IOA RCA)TA*ISA!J»tERR=TBBI I SBt C9DC. TI TLE tCSST 

107 CALL BA6ESTRUROAI 

190 WR| TET AttOSI COOCtTITLE 

100 mCLTBRH .CO .ISA IJI I URITE(AtlS7l VL0'.0 1 *CT I |R I 

1(0 mCLTBRR.CO.ISATJII CALL B03CST7I 

III 157 CORHAT I«BS. *000(101 I OIP S*.nB,B.» SJ/T>S/ 


SHCOST SOURCE LIST 


DA IE OT?«T? 


PAGE 


8 


-J 

cr> 


1? 


♦ .A 3* , ‘PERCENT LOAD COVERIO =• * F| 2 ,2» » 

11 


I-l ISRT2I.ST.3IG0T0 155 

I* 


CALL JCPRRT 

IS 


30 TO 190 

16 

155 

DO 180 K=2.R1 

IT 


I r 1 ISBIKl.LE.nl 30 TO 189 

t§ 


REAO 18 * IS3 MO .ERR : TOO 1 1 SC. C OOE • T ITL C • 

l» 


♦COST 

SO 


CALL PAGE S IHUH 1 

21 


'JR ITEI6.I3AI COPE. TITLE 

22 


CALL ICPRRT 

>1 

ISO 

CORTIRME 

2A 

l?0 

CORT IRUF 

25 


OOURPP“OURPRT • 1 30 . 9 

26 


CALL PAGESIII 

ST 


UPITEI6.II09ID0URPR 

?a 

1 lUT 

F0RRATI|K.2K.*00URPATRERT WILL BE •.FlO.Sr** OF T 

29 


SO TO 600 

10 

C THESE HAVE TEARLT COSTS 

11 

290 

00 299 J-2.M 

1? 

C*** 

SFAPCH LOWER LEVELS FOP OATA 

J! 


l-i ISATJI.LE.9I 30 TO 290 

3* 


PEAOie *ISAIJI .ERR=TCO> ISB .C OOE • T I TLE . COST 

11 


CALL PA 3E SI RUH* A 1 

36 


WR ITCI6.I03IC OPE. TITLE 

3T 


IMISmi.GT.3l 30 TO 250 

38 


CALL IFPRRT 

3* 


GO TO 2 TO 

AO 

250 

00 280 Rrl.M 

At 


I* (ISSIRI.LE.OIGOTO 280 

AS 


READ 1 8 * ISB IK >.ERR = TOOI I SC. C OOE • T I TLE . 

A3 


♦ COST 

A A 


CALL PAPES IRUR 1 

A5 


URITEI6.I9AI CODE .TITLE 

* 6 


CALL IFPRRT 

AT 

280 

CORTIRUE 

A8 

290 

CORT I RUE 

AT 


GO TO 699 

30 

C OP FR AT 10 AS COST DATA 

51 

300 

00 399 J=2»R| 

5? 

€••• 

REAO LOWER LEVELS for ARRUAL c UEl COST ARC ESCALAT 

33 


IF| ISAI JI.LE.9I 30 TO 390 

5 A 


PEAOI8*ISAIJ».ERRr TOO) ISB . C OOE . T 1 TLE • 

53 


♦COST 

56 


COST! 2>rC0ST 121 *100.0 

3T 


CALL PA3ESIWUR»A» 

38 


WR ITE 1 6. 1 03 i CODE. TITLE 

3 A 


WRI TE 16.1191 COST 1 1 1 .C0STI2I 

60 

390 

CORT IRUE 

61 


50 TO 600 

6? 

• OU 

CORT IRUE 

63 


DO 529 J-2.3 

6 A 

tt« 

R F A 0 LOWER LEVELS BT 3 RCCOROS AT A TIRE TEST for 

65 

c**» 

PRIRT ORES WITH DATA ...USED WITH RE PLACE RE RTS ARD 

66 


J|:J« 1 

AT 


I2;J*> 


TOTAL COST*) 


FAC TOR 


OATA 

REPAIR 


SHCOST SOURCE LIST 


141 
14V 
IT* 
IT I 
ITT 
ITS 
IT4 
IT* 
IT4 
ITT 
IT* 
I TV 
14 * 
1*1 
1VT 
1*3 

III 
115 
144 
14T 
144 
t*V 
1*0 
1VI 
IV* 

I V J 
1*4 
IV5 
1V4 
IVT 
IV* 
IVV 
TV* 
TCI 
T*T 
T 03 
»#l 
T05 
TO* 
TOT 
TOC 
TO* 
*1* 
Til 
TIT 
T 13 


l*IIS 4 l JI.LC. 0 I 80 TO 3 T* 

CALL RA 6 CS I HUN *4 1 

KIDtl , ISIIJIiEM:TIII ISC .C 80 E. TITLE. COST 
IF! ISAIJI I .LC .01 SO TC 410 

OC 40 I •* 1 S 4 IJ 1 I . C* 4 =T**I ISC. 4 C 30 C. 4 T ITLE. 4 C 0 ST 
IF| IS 4 IJTI.lE.nt 60 TO 405 

RCAOI**ISAIJTI.CRR=TOOI ISC . 5 COOC. 9 TITLC. 3 COST 

WRITE!*. ITO) CODE. I TI TLE I Ml » M=| . 5 ) . 4 C 00 E. I *T ITLCIRB I . 44 = 1 . 31 . 
• 3 C 00 C.I 4 TITLCIRCI *KC=t. 5 l. 

»<IVRI*>.C 0 STI*). 1 VRIKI.AC 0 STIRI.IVR|RI.BC 0 SVIRI«*:I.RVRI 
GO T* 5*0 
405 CORTIRUE 

WRITE! 4 . ITT ICO OE .(TITL CIRRI. M= 1 « 3 ’ • RCOOC • (ATI TLE I R 5 I .R 5 =l . 5 1 . 

* 1 I TRIR I .COST IR I »I VR IRI • AC*STIR 1 »R=I *RVRI 
80 TO 3 T 0 
410 CORTIRUE 

WRITE! 4 . IT 4 ICODC* ITITL CIRAI »RA=l. 51 . 1 ITRIRI.COST IRI.Ml.RVRI 
5 Tl» CORTIRUE 
GO TO 4 » 

350 CALL TAGCSIRUR. 3 I 

WRITE 1 4 . t*T I COOC. TITLE 
CALL 1 FRRRT 
400 CORTIRUE 

I R! IRC t .CO . 1 C I IRE TIIRR 

IRCtsICI 

80 TO 50 

I** rORRATI IK. 1 3 T! ••»»./. 1 I. 40 V. *LISTI 4 G 0 - COST * 4 TA IR*U !• • //I 
IOI R 0 RRATIII. 45 .il . *441 
10 * RORRAT! H.///.TI . 45 . 11.444 I 
103 F 0 RRRTIII. 4 I.A 5 .IV. 4 A 4 I 
1*4 F 0 RRATIII. 4 l.A 5 .il . *441 

115 FOUR AT 111 . 13 * 1 * 4 * 1 ./. IV. TI.*TH IS MEAT IR 6 VERT ILAT IOR ARO COOLING*. 
♦* AR 4 LTSIS* . /. 

• 3 V . * 0 ILL COVER *.I 3 »* TEARS BC 6 IRRIR 6 WITH*. 15 .* ARO*./. 31 . 
.•CR 0 IR 3 WITR*.t 5 ./. 3 V.*TRE OISCOU 5 T RATE TO BE A»»LIEO TO *. 

• •THE ARAL VS |s IS *.F 1 T.T.*I*./» 3 I»*THE INFLATION FACTOR 10 BE*. 

• • ARFLIEO TO THE ANAL VSIS IS- *. r I T. T. •*• ./. I V. 1 31 1 *•* 1 1 

IIV FORR AT III. 40 V » * ANNUAL FUEL COST =• . FIT .T./.50V • *CSCALA f IOR •* 
.•FACTOR s*»TV.F|T. *••**. /I 

ITU FORRATt IV. /. 3 ITV. A 3 . 5 A 4 I »/. 3 ! 3 V . *VEAR* . IOV . • COST • .T 3 V I. //* 

• 30 IS!T*.I 3 .TV» C IT.T.? 3 VI./I.//I 

ITT FORR ATI IV./.*ITV.A 3 . 5 A 4 I./.TI 3 I.*TCAR*. IOV . *COST *.T 3 V I. //» 

. 30 ITI TV. I>- TV.F| T.T.T 3 II •/ I .//I 
IT 4 FORR AT I II*/. ;TI.A 5 . 5 A 4 | ./. 3 I. *TCAR •• ICV. *COST*.//» 

. 50 ITI.I 3 .TI.F|T«T./| I 
CIO 


4FRT.S A.CTRMCR 


shcost sooner list 


oare 


p»5t 


* N*COSTII I.CTPMER 
I 
7 
3 

• 


s 

1 

* 


7 

10 

• 


T 


10 


II 


17 


13 


IT 


IS 

It 

u 


17 


la 


IT 

17 

70 


71 


7 ? 


73 


7 « 

13 

7 S 


7 * 


77 


II 

IT 

7 T 


30 


31 

IT 

37 


33 


3 R 


3 S 

IS 

3 * 


37 


sa 


3 T 


TO 


• 1 


T 7 

1 * 

T 3 


TT 


TS 


T* 


T 7 


TR 


TT 

17 

SO 


SI 


37 


S 3 

IN 

ST 


ss 



SUT ROUT INC CTPNERISTRRT.STOP .STEP I 

INTEGER CMtO IROI.CI .HTPHCN.7CR 0. NINE • PE R I OD. S PRCC . S L» SM 
ORTR Cl. HYPHEN. 7CR0.N INE/Ol T3.3SS.J63.OT7/ 

PR TR PERIOD. SPRCC . SL RSM/O 3« . 3T0* OS 7/ 

CONTINUE 
RCRD IS • 101 CRRO 
rORNRTI R3RI I 
VRNrfl.P 
I =L RG = 3 
STRRTrO.O 
STOPrJ.J 
STCPrO.O 
ISISNrl 
1 = 1 

1=1 CRROI I I .NE.SPRCn SO TO 17 
1 = 1*1 

1=11. 3T. SOI SO TO TOT 

GO TO II 

CONTINUE 

IMCAROI II .EO.NTPHENI ISISN r-1 
I- ICRRBI II .CO. HYPHEN! 1=1*1 
I=ICRROt l> .CO. HYPHEN I GO TO 17 
I =LRG=I =LR5* I 

I=ICAPOI II .EO.PERIOOI GO TO IT 
I=IC*RJI I • .tO. SPACE » SO TO IT 

1=1. NOT .ICRRO III .SC .7CNO.RNO.CRROIII .tt .NINE » I STOP *INVRLIO CANO* 
V*R=VRR* 13 .0*=L0 AT 1C ROOT II-7CR3I 
1 = 1*1 

I=II.5T.aO> 60 TO TT T 
GO TO 13 
1 = 1*1 

im.6T.00> SO TO TTT 
ICNTr* 

1 =1 A G= IRLRG* 1 

1 r l CRN 31 II .Et.MTPHCN.OR.CRROIll .C0.SPRCC.3R.CRN0II I.EO.EX > S3 TO I* 
I CRTs ICNT- 1 

I -I. NOT . I CRROI l> .iE. EERO. RNO.CRTOII I .LE.NME I > ST 3° *8A3 CRRO* 
VRR=VRR* 10 .0*=LOAT ICRRO I II-7ER0I 
1 = 1*1 

1=11. ST. 001 GO TO TTT 
SO TO IS 

V RR=I VRR* I O .p** |CN T >• IS I GN 
I SIGN-1 

1=1 I=LRG.tO.?> STRRT=VRR 
I- ll=L«S.CO.«> STOPrTRR 
I=II=IRS.EC.R> STCPrTRR 
I=ll=LtS.EO.R> SO TO TTT 
TRRrO.O 

I=ICR*3I II.RE.SPRCEI SO 10 l« 

1 = 1*1 

1=11. 3T. RO I SO TO TTT 
60 TO IT 

I =1 l=L«3.C0.R.RN0.CRR0l II.NC.MfPMENI S3 T3 TTT 
I =1 in.RG.FO .• .RNP.CRRPI IT .Nf .EX) ST3= 'N3 X* 

T-T.T 


'HCIJI SOIMCC LIST 


II 


mi. 5T.no> GO TO m 

57 


CO TO || 

51 

•ft 

ftCTURN 

55 

C 

0CBU6 TOOCC » SUB TRACE 

II 

C 

OT 1 

*1 

c 

TMCI ON 

It 


CM 


o.ocoioc 


wic nnn 


'•H 


II 


oi>sim 






SHCOSY rJURCE LIST 


DAfE 092*79 


PAGE 


I? 


cn 

O 


SMaOSTI ll.ntHNC 


I SUBROUTINE OEPINC 

: INCLUOi PARS 

3 CORNON/NPLT/PL ATE 

A I CONTINUE 

5 CALL SBLNK 

6 

7 C*** ALL COMPUTATIONS IN THIS ROUTINE ARE POA COMMERCIAL 

8 Ca**a APPLICATIONS ONLY DEPRECIATION DEDUCTS 

9 ,'••• ADOED INCOME DUE TO THE SM 9 AC SYSTEM IN RENTAL 

IS Ca*a OEOUCTAONS PROM TAXABLE INCOME DUE TO 3 PERAT I ON EXPENSES 

11 C*«* AND MAINTENANCE EXPENSES 

12 

13 C L JMPUTE DEPRECIATION DEDUCTIONS AND ..PTER TAX INCOME 

|A 1 = 1 IRC 1 .E 0 . 0 I GO TO 150 

15 READI 8 MRC 1 » ERR -600 1 ISUB . CODE • T IT LE * COST 

16 C*aa TEST =09 INCOME TAX RATE I 1 ’ <= 9 ERROR 

17 I PI COST < A ) .GT. d . 01 GO TO 90 

It C URI TC < 6*3101 

19 GO TO 150 

70 C COST ( 1 THRU N YR I rOEPREC IAT 10 N IN YEAR I C OS T I NY 9*1 I rT AX RATE 

2 t (;••••••••• COMPUTE STRAIGHT LINE DEPREC I AT 1 ON*** ••• AAA 

22 90 N=C 0 STI 1 » 

23 DrlCOSTI I l-COST I 2 » » /COST I 3 > 

2 A COSTINYRM IrCOSTIAI 

25 00 95 Jr 1 *NYR 

26 1 = 1 J . LE.NI COST I J I rD 

27 95 IP! J.GT.NICOST IJIrO.O 

28 DO 100 Irl.NVR 

29 Capa TOTAL HOLDS P* BY YEAR . P* * AC 

30 C a a • COMPUTE PRESENT VAL ACTUAL AMD ANNUALIZED COSTS 

31 ACTUA 1 lI)rCOSTII)ACOSTINYR*l) 

32 ACTUAL I N*R* 1 IrSC TUAL I N YR *1 1 * AC TUALI 1 1 

33 TOTALI IlrACTUAL II) / 1 1 .C« 01 SC 1 a a I 

38 IU 0 T 0 TAHNYR* 1 I=T 0 TAL<NYRa|)aT 0 TAHI» 

35 T 0 TALINTR* 2 I=T 0 TAL IN YR ♦! ) *AC=ACT 

36 UR ITEI 8 *!RCI«ERRr 6 D 3 ) ISUM* C ODE » T ET LE « COST* 

37 ♦PLC 0 ST»T 07 AL*ACTUAL 

38 C COMPUTE ADDEDINCOME 

39 ISO 1 = 1 IRC 2 .FO. C> GO TO 300 

NO CALL SSL NX 

81 REA 0 l 8 *IRC 2 »rRR= 6 OD) ISUB* CODE * T IT LE • COST. 

82 aPLCOST 

A 3 IP I =L ATE .EO. C.O) GO TO 250 

8 N 00 200 I r | * N YR 

85 ACTUAL! IlrPLCCST II IA 1 1 . O-COST 1 2 ) ) 

86 ACTUAL! NYR* IlrACTUAL INYR*| I • ACTUAL! 1 1 

A7 TOTALI IlrACTUAL 1 1 1 / 1 1 . 0*0 ISC I a a 1 1 

88 20 U TOTALINVRM IrTOTAL IN YR* 1 1 *T 0 T AL 1 1 1 

A 9 TOTAL! NYR* 2 )rT 0 TAL IN YR « 1 I A AC=ACT 

50 SO TO 290 

51 C COST I I Ir HVAC ADOED INCOME COST I 2 I r I NC 3 MC TAX RATE 

52 250 T 0 TALINYRa 2 |=||.D-C 0 STI 2 I IACOSTIII 

53 TOTALINYR*l)rTOTAL IN YR ♦? I aNYR/AC=ACT 

59 DO »60 Jrl.NYR 

55 ACTUAL I J|rT 07 AL INYR«?I 


SHCOST SOURCE LIST 


O* ft 092S79 


ptsr 


00 


2 


2 Ml ACTUAL IRTR* t > r ACTUAL IRTR 'I » 'ACTUAL fJ) 

290 WR I TE C 9 * (RC2.ERR=609 I ISIfB . C OOE . T I T LE . COST. 

«FL COST. TOTAL i ACTUAL 

C'" RAINTENANCE OEOUCTIORS c ROR IRC ORE TAX CORRERCI AL ORLt 
30U I e I IRC 3 .LE. 0) 60 TO 300 
CALL S9LHK 

READ! AMRC3. ERR =600» ISU9. CODE .TITLE .COST. 

* c LCOST 

00 330 J=1*NTR 

I-IRLATE .EO. 0.01 ACTUAL IJI = C0STItl'C0STI2l 

1 El PLATE .RE . 0.01 ACTUAL I JI=ELC0STIJI*C0STI2T 
TOTAL! Jt=ACTUALI Jl/I I .0*0 1 SC> "A 

TOTAL IRTR* | I r TOTAL IHTR*| »*TOTALIJ» 

ACTUAL I RTR* I IzACTUAL INVR'l I 'ACTUAL! J1 
330 CONTINUE 

TOTAL Ilf R*2t = T0TAL I NTR*| I • AC C AC T 

WRITEI 0* IRC 3 .ERR = 600) I SDR .CODE . T I TLE . COST . 

♦ELCOST • TO TAL .ACTUAL 
90U 1 E| IRC A .LE. 01 60 TO 700 

CALL S9LNK 

C»«* ENERGY DEDUCTS DUE TO OPERATIONS EXPENSES •••••• 

RE A 01 A* I RCA .ERR =690 1 ISUA.COOE. TI TLE . COST * 

♦ELCOST 

00 931 1=1. RTR 

ii=i*jyosc 

ACTUAL I 1 1 =COST It »• 1 1 . 9*C0ST 1 2 1 » •• I I'COST « 3 1 
TO TAL I II=ACTUAL II M II .O'OISC)" 1 
TOTAL! ATR»1 l = TOTAL IRTR* 1 1 • TO TAL 1 1 1 
ACTUAL INTR*1 1 = ACTUAL IRTR ♦ I I 'ACTUAL III 
990 CONTINUE 

TOTAL I NVR'2)=T0TAL INTR'I I'ACEACT 

WRI TEI A* I RCA. ERR =609 1 ISUA.COOE. T ITLE. COST* 

'ELCOST. TOTAL. ACTUAL 
)U RETURN 

60U WRITE! A. 6011 

601 C QRRA TI3X.* ERROR- IN OEPINC* I 

RETURN 

C 0E9U3 TRACE. SU9TRACE .INIT 

C AT 1 

C TRACE ON 

ENO 


PRT.S A.DIVVT 


SHCOST SOURCE LIST 


:05T( I » 

.01 VVY 


1 


SU3R0UT I Nf DIVVY 

2 


COHNON/NFLT/ Fl ATE 

3 


COHNON/?LAG/I‘'LS 

• 


CONNOR 2 IP 1 / IP 

3 


INCLUOE PARS 

6 


CONNON /INPUTS /C3S TIN «?00 .31 

1 

c 

DSSTPT - DISCOUNT RATE START VALUC 

e 

c 

DSSTOP - DISCOUNT R0TE STOP VALUE 

» 

c 

DSSTEP - DISCOUNT RATE STEP VALUE 

10 

c 

FTSTRT - INFLATION RATE START RATE 

ii 

c 

FTSTOP - I«’L1T|0N RATE STOP VALUE 

i? 

c 

FT STEP - INFLATION RATE STEP VALUE 

13 

c 

OPSTRT -- OOWNPATNENT START VALUE 

10 

c 

OPSTOP - OOVNPA TRENT STOP VALUE 

13 

c 

DPSTEP - OOWNPATNENT STEP VALUE 

16 

c 

OISC - 0 ISCOUNT NATE 

l T 

c 

FLATE - INFLATION RATE 

10 

c 

OWNPNT - OOWNPATNENT 

l* 



70 

70b 

CONTINUE 

21 


00 190 1=1. 200 

77 


I F | COST INI I. 11 .EO.D.l GO TO 100 

*3 


00 191 J= 1 » 3 

20 

101 

COST! J1=C0ST INI I. JT 

23 


READ! 0*11 ISU0. CODE. TITLE 

26 


WRITE* A* I> ISUB.COUC.T1TLE.COST.FLCOST, TOTAL. ACTUAL 

27 

too 

CONTINUE 

28 


IFLG=0 

27 


I f< I W. 6E .0 t 50 TO 13 

30 


OISCrOSSTRT 

31 


FLA TE = S TSTR T 

32 


OWNPNfrDPSTRT 

S3 


TINCONrTSTART 

3* 


PTAXrPTSTRT 

33 


CALL 3 r L 

36 


IP = 1 

37 

15 

PEAOIN’CL TPRN 1 ISU6.C00E. TITLE 

30 


COST! I TrPRICE IIP) 

37 


WRITE 10»CL TPRN I I SUS . CODE . T I TLE . C3ST 

60 


IRCrISI 

61 


I PC 1 = 1 52 

0? 


50 TO 5 

03 

1 

I RC= I Cl 

66 


|RC1=1C2 

65 

3 

READ<0MRCI.ERR = 639I ISU6 .CODE • T I TLE . C 9ST 

66 


TAC0=O 

67 


I-TISU3T 2I.E0.9I SO TO 19 

60 


00 2C 1=2. NTR 

0? 


I r l ISU3T IT.E0.9T SO TO 23 

30 


REAOI 0* ISII9 1 I) .ERR =600) IS A , CODE . T : T LC . C 9S T 

31 

70 

TAC0=T»C0*C0ST 11 1 

32 

25 

GO TO 30 

33 

13 

TACOrCOSTI l 1 

5* 

30 

RFADt A* IPC «ERR = 6P0> ISUB 

55 


DO *5 T r 7 , N TR 


D. *1 072677 


P*6C 



SHCOST SOURCE CIST 


56 

5T 

56 

59 

60 
61 
6 > 
63 
66 

65 

66 

67 

68 
69 
TO 

71 

72 

73 
76 

75 

76 

77 

00 78 

00 77 

80 
81 
82 
83 
66 

85 

86 

87 

88 

89 

90 

91 

92 

93 
96 

95 

96 

97 

98 

99 
100 
101 
102 


IH ISU5I II. LC. 0.08.15118(11. ST. 2001 SO TO 63 
in 1SUB1 I> .SC .IS2.AN0.ISUBII) .LE.1S51 G'« TO 35 
I?< ISU5C n.GE.IC?.*N0.ISU8<II.LE.IC5t 50 TO 35 
READI 8» ISU6I 1 ) . ERR r 600 I IS* • C OOt » T I TLE . COS T 
I- ( ISM 2I.NE .01 SO TO 65 
CALL L0AD1TAC0T 

WRITE! 8* I SUOMI .EPR=630» ISk • CODE • T I T LE • C OST 
SO TO 35 

65 00 59 J=2.NTR 

1P< ISA I J> .ES .01 60 TO 35 

RE*0«8MSA!J».ERR = 699» IS1.C0DE«TIILE.C9ST 
CALL LCADITACOT 

50 WRI TE< 8* ISkIJ t •FRR-6301 I S6 . C 90E . T I TLE • COST 
35 CONTINUE 

60 IM I»C.EQ. ISI» GO TO 1 

I W -9 9 
RETURN 

13 IPr I P« 1 

1*1 IPLT0P.e0.t.iND.PRICE«IP*t».ea.J.9R.IP.3E.?61 I 
|P»PRICET IP> .NE .O.O.AND.IP.LE.25T GO TO 15 
I Pi I 

01 SC-0 ISC*OSSTEP 

I -I IPLT0P.EQ.2.AN3.0ISC*DSSTEP.3E.0SST0®» I-LSrl 
IPIO ISC .LE .DSSTOP.ANO.DSSTEP.NE .0) GO TO 15 
01SC=0SSTRT 
PTAX:PTAX*PTSTEP 

1*1 IPLTOP.E0.5.kN0.PTkX*PTSTEP.SE."TST3PI I C LS=I 
I P1PTAX.LE .PTSTOP .ANO.PTSTEP .NE .01 GO TO 15 
PTAXrPTSTRT 
TINCON=TINCOR«TSTEP 

I- I IPLT0P,E0.6.*N0.TINC06*TSTE*.GE. TST0P1 I-L3=l 
IMT INCOR.LE .TST0P.8N0.T5TEP.NE.0T GO TO 15 
TINCO*=TSTART 
PLATE=FLATE» r TSTEP 

1*1 IPl TOP.E0.3.kND.PL«TE* r T STEP. 3E. PTSTOP I I r LS = l 
I*f*l.ATE .LE ,*TSTOP. ANO.PTSTEP. NE.O GO TO 15 
PLATE:- TSTRT 
DWNP8T =DWNPB T ♦OPSTEP 

1*1 IPLT0P.E0.6.AND.0UNPNT*0PSTEP.GE.0PST0P» I r L3=l 
IPTOWNPNT.LE .OPSTOP.ANO. OPSTEP. NE.O) GO TO 15 
OISC=-999.0 
I*LG=1 

6)0 RETURN 

C DE5UG IN1T. SUBTRACE. TRACE 

C AT 900 

C TRACE ON 

ENO 


6PRT.S A.ENER3T 


OATE 092879 


PAGE 


15 


L5 = l 


SHCOST SOURCE LIST 


1>«IE 092879 


PAGE 


I* 


SH*COSTI 1). ENERGY 

1 SUBROUTINE ENERGY 

2 INCLUDE PARS 

3 CONN ON /NFLT/FLATE 

A C CONFUTATION OP ENERGY COSTS ?0R MVAC 

5 C COSTS H)R EACH TYPE Of PUEL OR ENERGY SOURCE PER YEAR ARE 

6 C ESCALATE?. EACH SUBLEVEL CONTAINS ANNUAL ENERGY COST AND THE 

7 C CORRESPONDING ESCALATION FACTOR. TOTALS ARE PLACED IN OPERATIONS 

8 C LEVEL IN TOTAL 


CO 


9 

1 

CONTINUE 

10 


I c l IRCI.E0.0150 TO 110 

11 


CALL SBINK 

12 


RE A 01 8MRCt.ERR=600l ISUS.COOE.TI TLE.COST. 

13 


♦AFCOST 

IA 

C * • • 

IF THIS LEVFL IS ENPTY GO ON TO NEXT 

13 


I F| ISIIB 121 .8T . 01 SO TO AO 

16 

c •• • 

CHECH r 0R POSITIVE COSTS 

17 


IFIC0STI1) .LE. 0.0) GO TO 110 

18 


DO 23 1=1. NYR 

19 


I 1 = I ♦ JTOSC 

20 


ACTUAL! It=COSTI t 1 *1 1 .0»COSTI2I »••!! 

21 


TO TALI 1 1 rACTUAL II I / 1 1 .0*01 SC I 

22 


ACTUALI NYR* I 1 = AC TUAL 1 NYR* I 1 » ACTUAL 1 1 ) 

i ' 

25 

TOTAL 1 NYR. II rTOTAL INYR«1 MTOTALI 11 

2A 


GO TO 105 

25 

C*p« 

HERE IF NO SUBLEVELS 

26 

C«** 

CONFUTE COSTS IN TERNS OF PRESENT VALUE 

27 

c 

REAO EACH FUEL TTPE AND CONFUTE YEARLY COSTS 

28 

AO 

00 too 1=2. HI 

29 

C**» 

SUBLEVEL COSTS 

3P 


|F| ISII5III.LE.0IG0T0 100 

31 


I SUN I = ISUB III 

32 


READ! 8MSUBI.ERR=610I I S A . ACOOE . AT I TLE . 

33 


♦ACOST. FLCOST 


C COSTU»=-UEL COST • C0STI2I= ESCALATION ?ACT)R 
00 63 J=I.NYR 
JJrJ.JYOSC 

BCTIIALt J)=ACOST 1 1 1 • H I .0 *ACOST I 2 » I • •JJ) 

A TOT ALT J»=BCTUAL«J»/«T.3*0ISC)**J 
9 TOTAL I JloTOTAL IJLATOTALI JT 

0 ACTUAL I Jl =AC TUAL t J ) ♦ACTUAL < J I 

1 ATOTALTNYR«|>rA TOTAL TN YR *1 » *AT OT AL I J > 

2 9CTUALINVR»tl=RCTUAL TNVRM I ♦BCTUALI Jl 

3 65 CONTINUE 

A AT0TALINYR*2I=AT0TAL INYRMI*AC r ACT 

5 C ATOTAL ARE FOR THIS SUBLEVEL 

6 €••• ADD SUBLEVEL TOTALS TO UPPER LEVEL TOTALS 

7 90 WR ITE ( 8 * I SUB III • ERR r 600 I I SA • AC OOE . AT I TLE * ACOST . 

8 ♦FLCOST. ATOTAL .BCTIIAL 

9 TOTAL INYR« II =TOTAL IN YR *1 I *A T OT AL I NY R« 1 1 

0 ACTUALINYR»|I=ACTUAL <nyr»ii»nctualtnyr*ii 

1 ATOTAL (NYR. |> =0.0 

2 BCTUALINYRM 1=0.0 

3 100 AT0TALINYR*2l=O.« 

A C TOTAL ARE r 0R THE OPERATIONS LEVEL 

5 103 TOTAL IHYR.2|~T0TAL IN YR *1 •♦ACFACT 



"'MC OS T 

SOURCE LIST 

56 


UR ITEI 8* IRCI 'ERR=60C> I SUB t CODE » T I TLE i C 3ST . 

57 


♦6 C C0ST. T0T6L tACTUOL 

58 

1 10 

RETURN 

5? 

630 

URITEt6»60l ) 

60 

601 

FORRO T I5K» ’ERROR IN ENERGY *1 

61 


RETURN 

6? 

C 

0EBU3 IN I T * 5 UB TRACEtTRACf 

65 

C 

»T 1 

66 

c 

TRACE ON 

65 


END 

9PRT.S 

8.3FL 



DO f E 09207? 


R*3E 17 


00 

on 


SHCOST SOURCE LIST 


DA ft 092*7? 


RASE 


1* 


00 

03 


r >H«COST< ll.SFL 

1 

2 

3 

A 

5 

6 
7 

a 

9 

10 I 

1 1 
I? 

13 


1 A 

15 

16 
17 
1* 

19 

20 
21 
22 
23 

2 A 

25 

26 
27 
2A 
2? 
33 

31 

32 

33 
3A 
35 

3 6 


1900 


C 

c 

c 


SUBROUTINE GEL 

CON* ON /NAB/ A ABES 
COBNON/IAST/PRICEI 
C0NR0N/3 c L2/SST»RT .SSTOP.SSTEP 
INCLUDE PARS 
REAL L9.L 

01 BENS ION c RTA0I21*FRTAI21»ERULI2) 

CHAR AC T E R • 6 3 NABES 

DATA ERTAO.ERTA.ERUL/ .50. .75. .60* . 75* A .00. A .00/ 
CONTINUE 
IrLCN 
J=LOA 
LrILOAO 

CALL TABLE « 1 . J »P A.P9 .P C.PD.PE. RE* AABES . LOI 
K=0 

ACrSSTART 

K=K*1 

PR ICE ( R >=AC*CSTPSB *0 .0005 
AREA! K I r AC 

*rl ERUL CJ) /ERT ATJ) i-b.o 
V=(ERTAI J|/ERTA)(J>I*(L 0/LI*AC 
RrPA«PQ*X*PC*(V**2> 

'.:PO*Pi»«»PE*(X*.?l 

EXPNTr(R*r*S* 1T**?1 >•( -1 1 

C PCT=I-EXP«EKPNTI 

AC=AC*SSTEP 

SIK I - r PC T *L 

PCTIA f = FPCT»100.0 

I ; IAC.LE.SST0P.AND.K.LT.I3 ; LI30 TO 190) 

PRICELrPRICE IK I 

RETURN 

DEBUG IN TT» TRACE .SUB TRACE 
AT I 

TRACE ON 
END 


3PRT.S A.IFPRNT 


smcost source list 


DATE 092079 


PAGE 


»» 


00 


SH*COSTI 1 I.IFPRNT 

1 


SUBROUTINE I C PRN T 
INCLUDE PARS 

DETERMINE FORMAT AND VARIABLES -0* PRINT 
I PI I SUB I I) .EO .0) SO TO 100 
C0STINYR»11=C0ST|NYR»1 1*109 
C(ST(NVR*21=C0ST IN YR*2 1*100 
ISUTCH=ISUBIII-I 
IPIISWTCN .GT. IOP> 60 TO t 

GO TO I 19.15.|9.79«29.39.35.69.65.5B«55t69«65«69»05«B71»ISUrCH 


10 

11 

12 

13 

l« 

15 

16 
1 7 
IB 

19 

20 
21 
2? 
23 
26 

25 

26 
27 


1 GO TO I 10.15.15.20* 25* 30»35.60»65.55»6©»65*6t»05*871»ISW TCH-ICO 

C ACOUITIONS 
10 CONTINUE 

WRI TE I 6 . 70 1 COST III 
GO TO 100 

C BUILDIN3 MODIFICATIONS 

C SPACE OCCUPIED 

15 CONTINUE 

UR ITE 16 » 71 1 CO ST 111 
GO TO 190 

C NET REPAIRS ANO REPLACEMENTS 
20 CONTINUE 

WR ITEI6.731IIYR IK I .COST I K1 »K=1 1 NTR t 
GO TO 199 

C MAINTENANCE COSTS 

29 CONTINUE 

WR ITE 1 6. 721 COST 111 
GO TO 190 


20 

62 

63 


C OPERATIONS COSTS 

30 COST I 21 = COST 121*199.9 

UR I TC I 6 » 75 ) C0STI11 .C0STI21 
GO TO 199 

C PR0PERT7 TAX COSTS 
35 COSTC2I=COSTI2I*190.0 

UR ITEI A. 761 COST 121* CO ST 111 
GO TO 199 

C PROPERTY TAX DEDUCTIONS 

60 COSTI21=COSTI21*190.9 

COST!3»=COSTI3)*inO.O 
URITE 16*771 COST I 2 1 .COST! 3 1 * C9ST I 1 1 
GO TO ir.0 

C DEPRECIATION DEDUCTIONS 

65 C0STI6I=C0STI61*1C0.0 

UR I TEI 6 * 70 1 1C0STIK1.K5I.6I 


50 


GO TO 100 

C ADDITIONAL AFTER TAX INCOME 
50 COSTI?I=COSTI21*100.0 

UR I TEI 6* 7 91 COSH II .COST 121 
GO TO ICO 

C INSURANCE COSTS 

55 CONTINUE 

UR! TC I 6. 00 > COST 1 1 I .COSH 21 .COST I 31 
GO TO 100 

C SALVAGE VALUE A C TER N TEARS 0* ANALYSIS 
60 CONTINUE 

WRI TF 16.01 I rOSTIII.NYR 


SUCOST SOURCE LIST 


DA (E 07 28 7 9 


56 

57 

c 

LI 

SB 

65 


5? 

60 

61 

62 

69 


63 

6 A 

65 

MS 


66 

67 

68 

B 7 


69 
7) 
7 1 


TO 

72 


T1 

73 


T? 

7N 


T 3 

75 


75 

76 

77 


76 

TB 

79 


77 

BO 
B 1 
N2 

TB 


83 

BN 

85 


79 

BA 
B 7 


80 

BB 

89 

90 


•J 

»l 


M? 

92 

93 
9N 

83 


95 

96 

8N 


97 

98 

89 


79 

100 

IOO 

101 




GO TO 117 

OAN MORTGAGE VALUE 
CONTINUE 

UR I TE I 6. 8? I COSTINTR.|).COSTINTB*?». 

MI YR1K1 .COST » A I.K = I .NTRI 
SO TO 100 
CONTINUE 

UR ITT I 6. B3IC0ST INTR .| > • COST * 1 I 
SO TO 1)9 

COST !2»rC0ST!2l *100.0 
UR I TE! S. «• I COST I I I .COST! ?l 
GO TO ICO 

COSH 2lrC0STt?l*10!>.) 

COST! 3 »=C0 ST 01*100.0 
URITElA.RTtCOSTIt • .CO* M ? » . C OST ! 1 1 
FORMAT MX. 50X. HN|T I AL COST ='.F|2,2./| 

FORMAT! |X. SOX. 'COST r'.F 12. 2. /I 
FORM * T 1 1 X • 50X . • COST PER TEAR = 

FORMAT! IX.SOX. 'TEAR •• 10X»'C0ST'»/« , ><)I5)X»I5»2X.F|2.?«/II 
FORMAT! IX. SOX. •ANNUAL FUEL COST s' .Ft?.?, /.SOX. 'ESCALATION •» 
••ciCTOI 

FORMAT! IX. SOX. 'PROPERTY TAX RATE S • *F 10 .2* • * • ./ *51 X . 

♦•■SSESSEO VALUE s'.f|<).?| 

FORMAT MX. SOX . 'PROPERTY TAX RATT r • .F 10 .?*•*•»/ *50X. 

♦IX. 'INCOME TAX RATE =♦. *1 0 ,?.•*'./. 51 X •• ASSESSED* • 

♦ • VALUE r',Flp.?» 

FORMAT! I X . 50X . 'ORIGINAL V ALUE * ' 7X . • = « . 1 X . FI 2 . 2 ,/ , 5 1 X * * SAL VAGE *. 
♦•VALUE'. ?X,'='»F|?. 2. /.SIX. 'TEARS OF EXPECTFO USE = • .F| 2 .2, /. 51 X. 

♦ •INCOM-: TAX RATE =• , IX •= I 3. 2. • *• » El 

FORMA T | IX » 50X . • ADD I T IONAL ANNUAL INCOME =• >F12 .2. /.SIX •• INCOME *. 
.'TAX RATE ='.IIX.F|9, 

FORMA HIT, SOX . 'ANNUAL PREMIUMS =• • I 6X . FI 2 .2,/, 51 X. 

♦ •ANNUAL ESTIMATED (1ANA3E = • • RX . f I 2. 2. /*5t X » 

"ANNUAL INSURANCE RE IM5URSEMENTS ='.F|?,2./I 

FORMAT! IX. 50X. 'SALVAGE VALUE ='»F|2.2.' AFTER'.I5»« TEARS'./I 
FORMAT! IX.SOX. 'MARKET INTEREST RATE = • •= 1 J. 2. • t' . / • 51 X. 

♦ •INCOME TAX RAIF = • . 5X * F | c . 2. • t • • / • 5 1 X . 'YE A R' • 3X . 'OUT S T ANO ING '. 

♦ •MORTGAGE VALUE*./.5D!53X. I5.6X.F|?. 2./) | 

FORMATUX, SOX. 'MARKET INTEREST RATE =' »F|to .2* 't • . /.51X . 

♦•ANNUAL PAYMENT ='*SX.F|9.?| 

FORMAT! IX. SOX.' COST PER TEAR = • » F | 2 .?, /, 51 X 
. * INCOME TAX RATE = • . »X .f | ) . ?. M • , / 1 

FORMAT! IX.SOX » 'ANNUAL FUEL COST s • » IX* F 1 2 .2,/ . 5 IX • 'ESCALA TION*. 

•• FACTOR r *.F| #.?».*• ./.SIX.* INCOME TAX RATE 
return 
ENO 


PAGE 


9PRT.S A. LEGEND 


SMCOST SOURCE LIST 


DA IE 09217? 


PA6E 


oo 

to 


SH*CO 


T ( It.LESEND 


SUBROUTINE LE6EN0 It ABELS * IE* • 1C00EI 
CHARACTER** LABELS!!*) 

CHARACTER*? EXP 


I r I I coot . NE . 1 I SO TO 19 
CALL STRBOL I3.5»?.0» .1 * 3 » AHLESC *0.0 .0*4) 
TAXIS=B.0 
1=0 

XNUH=9 
TSTEP=0.? 
f* NNUR-) 

00 || J=lt* 

IMLABELSIJ) .E0.«H I 60 TO 12 

11 NNUR=NNUN*« 

12 CONTINUE 

TAXSTAXIS-f YSTEP* c LOA TI III 

1 = 1*1 

CALL \ ’RBOHO.B • TAX t • I *ltL ABELS*9«9» NNURt 
IAX= r LOATI NNUN 177.0 

CALL STRBOL (XAX*YAX«.|*1«*H XI3.9.).«> 
ENCOOf l?*IT»CXP) IEX 
11 e QRNI 7* i !l 

CALL rHBOLIXAX*.AtTAX*.l?5t.07?»EXP*0.0*?) 

XNUR=XNUR* I 

XAXIS=A.O 

CALL NUR*ER(XAXtS*TAXt.07t*XNUR'9.D*-)l 
00 to J=l*2 
XAXIS=A.9* C L0ATI J) 

CALL PLOTIXAXIS*TAX»?) 

ID CALL NURBER(XAXIS*TAX*.97I*XNU**i).9*-9) 

l c < IC0DE.E0.3) CALL PLOT MS.Ot O .0* -1) 

RE TURN 

END 


9PRT • S A.LIFCTC 




S MC 0 ST SOURCE LIST 


sh*cost 1 1 » .urcrc 


SUBROUTINE LIFCYC 
INCLUDE "MRS 
COMMON /C VI IF/CVt F IM 

EOtl IVMLENCE <CYl I-E.CTL C * IM .<»CTLIP«CTLP<? » »• IM NCYLf , CVLF| J I I* 
♦I FUSA VE.CVLF Ml I » I • c IJS M V » C V LF I S 1 1 . I MN C US * . C YL F I 6 ) I 


REMO RECORDS FOR TOTML COSTS OF CMCM SYSTEM 
1ST IS TOP LEVEL FOR SHVMC 
ICI IS TOP LEVEL r OR CHVMC 


IFIIS1 .NF.O) RE APIA* ISl.ERRr600> ISE » ECOOE » ET ITLE »COS I »f 10 ML • 
♦TOTAL.MCTUML.PV.AC.AC T 

I Ft ICI .Mf. 0) REMOIB* ICl.ERRr*00> ISE.ECOOr.ETITLE.ACOSr.E IOIML. 
♦MTOTML.BCTUAL.PVI. MCI «MCTI 


MEMO EMER3Y COSTS fqr SHVMC IISTI MND f 3 * CHVMC IICTI 


IF MNMLYSIS IS COMMERCIML ENER3V DEDUCTS MUST BE OEOUCIED 
ELSE ONLY ENERGY COSTS MRE INVOLVEO 


RENOIR* IS7.ERR=«03I I SE . ECO OE .E T I TIE . EC3ST . E T3TNL • BT OT ML • 
♦CCTUML 

RENOIR* I CT.EPR=603» I SE .ECO DC . E T I TLE . EC3ST .E T 3TNL . CT OT ML « 
♦DCTUML 

(;•••••••••••••• •••••••••••• 

C««* COMPUTE L IF CYCir COSTS MND FUEL SMVIN6S 

C* •♦♦♦♦♦♦♦• •••••••••••••••• 

CYLI C E=PV|-PV 

MCYLIF=MCTI-MCT 

MNCYLFrACI-MC 

C ♦•♦•♦♦••••••••••••••••••• 

C*** IF MNMLYSIS IS COMMERCIML EBER3Y OEOUCTS BUST BE OEOUC 

C«** ELSE ONLY ENERGY COSTS MRE INVOLVEO 

C* ••••••••••••• ••••••••••• 

IFIICOM .EO. 1) SO TO 100 
rUS»VC=CTOTML<NYR#|l-BTOTML(NV?M| j 
M c USMV=OCTI*il INYR ♦! » -CCTUML I NYRMI 
ANFUSV = CTO.NHNVR*»I -NTOTNL I NVROI 

c ••••••• ♦♦•••♦••••«•••• 

C««* SMr CONMCRCIML MNMLYSIS |F HERE 33 T3 CHECK f 3 * 

C ••• ENERGY MNMLYSIS ONLY OR RE6ULMR TYPE 

C •••••••••••••• •••••••• 

GO TO ?00 

^•♦♦. ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

CM** REMO ENERGY COSTS ?N0 ENERGY OEOUCTS FROM 1ST MND 1S17 

€••• OETERMIME NET f UEL COSTS =3R FUEL SMVIN5S 

c ♦•••♦♦•♦♦••♦♦♦•••••• 

100 RENDIR*IS7.ERR=*00I ISE.EC30E.ETITLE.EC3ST.ET3TNL.NT0TML. 
♦CCTUML 

REMDI R* ISIT.ERR=M33» ISE. ECO Or*E T I TLE .EC3ST * E T3TML . CT 0 TMLt 
♦DCTUML 

FUNETl-BTOTRLINYNM I -CTO IML I N YR* 1 1 
• FNE T I rCC TUMI. INYR. I I -OCTIIM 1 1 NY R* 1 » 

MNFNTt =NTOTML IN VR ♦? ) -C TOT A L I MV R.? I 
C •♦•♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦• 

r ••••••••• 


SMP CONMCRCIML MNMLYSIS l- HERE 33 13 CHECK f 3 * 
ENERGY MNMLYSIS ONLY OR RE6ULMR TYPE 


REMO ENERGY COSTS 7N0 ENERGY DEDUCTS F RON |S7 MND IS17 
DETERMINE NET fuel COSTS f 3 r FUEL SMVIB5S 


OMIE 093R79 PRGE 77 





REMO CHVMC ENERSY COSTS M NO ENERGY OEOUCTS 
OETERMINF C UEL SAVINGS 


SHCOST SOURCE LIS? 


Da IE Oflllt 


net 


23 


CD 


SO 

f? 


READ! «• ICT. ERR =600) ISE.EC0DE#ETITLE»EC9ST *E TOTAL *810 TAL* 
♦CCTUAL 

READ* R* lClt.ERR=*OOI ISE. ECOOE.ET ITLE * ECOST. E TOTAL. CTO TAL. 
♦OC TUAL 

*11# ET 7=8 TOT at *HTR«1 1 -C TOTAL* AT R.| I 
•e0ET2=CCTUAL*HTR»II-BCTUAL<«TR»|I 
ARERT7=8T0T AL «R TR*2 I -C TOTAL* ATR*2 I 
? US A *E =E ORE T >-p URE T I 
aruSAV=AERE T2-ACRE T I 
AR r USf=ARERT2-AR c RTl 
CM*MM«M**M**»M*» 

c««« 1= THIS IS AR EHERh* COSTS ARALTSIS OHLT 

C«** RECOREUTE L IEE CTCLE COSTS 

C*** ELSE 60 WRITE RESULTS TO -ILE 0 

€••••••••••••••••••••• 

70U l c I IRR3T .HE. II SO TO 388 

CTL I C E =*US ARE- ICOST III -ACOST fill 
ARCTL c =AR e USIf-*COST *21- ACOST* 71 I 
ICU IE rAEUSAV - (COST IJI -ACOST 1311 

C**« WRITE THE L l r E CTCLE COSTS OUT TO RASS ST0RA8E 

£•••••••••••••••••• 

300 REaO«0*IL e ’>ERR=A90l I SUB. CODE* T ITLE 

WRITE* 0» ILE. ERR rfcOOl ISU8.C00E *T ITLE.CTLE 
RE TURH 

MMt WR |TE ( 0. *01 I 

081 ?ORHATtSl. 'ERROR IH LI c CTC*l 

RETURR 

ERO 


OERT.S A.LOAO 


SMC OS T SOURCE LIST 


SH*COSTI t T.LOAU 


Sm ROUT I NF LOADtTACOI 
INCLUDE PARS 
C OR NON/ I P l / I P 
IBIKrISUBI II 

1*1 INl'.GT. 1331 SO TO 133 

60 TO < *. 9. 9. T.9. 10» ».?0fP5* 30* *5* AC. 9* 50» AS.SS. 1 ) )• IBIK 

60 TO <?. ?,?,?. ?.|<|. IS. ?]. 75. T3.«0.*.33.?3t 79.431. IUK-IOO 

Rr»0«P • IS6 • t RR - 600 > ISO.OCOOE.DTITLE.COST 

C0STI2lrTINC0N 

RETURN 

REiOl A* IC6.ERR=430> l SO . OCOOE . OT I TLE. COST 
COST I ? ) = T INCON 
RE TURN 

COST ( I )=COST 1 1 > »TACO 
RE Torn 

C» *T!3I = T INCOR 
COST t !l=TACO 
COST | 2|:PT«I 
RETURN 

COST(A);T INC OH 
C OS T I 3»:C0ST«?» 

COST |7)rC0ST III 
COSTI tlsTACO 
RETURN 

COST! 1 1 r COS T ( | )*TACO 

RETURN 

CQSTI?t = MNCON 
RETURN 

REAOf a'ISI4*CRR=403l TSO. OCOOC. OT 1 TLE . C 35 T 
RETURN 

READIB*I1 J .ERR =400 I I SO • OCOOE • 9T I TLE < C 3ST 

RETURN 

COSMN> = TINCON 
COSTI)l=COST «») 

COST I ?l=COSTI|l 

COSTI|l = TACO«M . -OWNRNT I 

RTTURN 

RE AO I R * ICT*ERR = APOI ISO t OCOOE • ITT I TLE • C OS T 
COSTTTTr TtNCON 

ACOSTI I IrCOST II »• It ,-RCTI IPI/I 00.1 
ACOSTI tl zCOSTTOI 
ACOSTI 3I=C0ST 13) 

RCA r '** , T»ERRr433) I SO. OCOOE .OT I TLE 
UOmilM r, ERR =400) IS D» OCOOE. DMT IE. AC OS T 
Rl TURN 

AL*»ST| i "ZCOST (1)*ll.-PCTtIP)/tcn.l 
AC0S.«?>=C0ST|7I 

REAOt RMST>ERR=433I I SO . Of 0 OE . OT I T! C 

MR ITET B * 15 7»CRR rACOI ISO OCOOE . OT I Tl t. ACOS T 

RETURN 

PRINT •• ’ERROR IN LCAu* 

return 

END 


DATE 0 ? ?8 7 T 


RASE 


24 




oncost SOUftCF LIST 
• »*«T»S t.aiTRET 


0» ft OI1IM 


ONCOST SOURCE UST 


DA 1C 092079 


RAGE 


2 * 


SM.COST I 1 1 • RET REP 

1 SUBROUTINE NETREP 

2 INCLUDE PARS 

3 COMNON/NFLT/fLATE 

A C COMPUTES NET REPLACEMENT COSTS AND MAINTENANCE COSTS 

5 C<<< TESTS FOR INFLATED OR REGULAR COSTS AND USES THE APPROPRIATE ONE 

6 C*pp COMPUTES PRESENT VAL ACTUAL ANO ANNUALIZED COSTS 

7 IFIIRCI.EQ. 01 GO TO 21C 

R CALL S9LNK 

9 READI 0 * IRC 1 .ERR =6001 ISUB » CODE »T ITLE .COST » 

10 ♦FLCOST 

11 I FI ISUB 121 .GT . 01 GO TO 89 

12 CMK=0.3 

13 00 30 l=t*NYR 

IN 70 CHK=CMK*COST<II 

19 IFICHR .LE. 0.01 GO TO 210 

I A DO 70 1=1. NYR 

17 C<<* CHECK FOR INFLATION IF TRUE USE FLCOST ELSE USE COST 

18 IFf claTE.NE.O.DI ACTUAL I II = c LCOST< II 

19 IFTFLATE.EO.O.OI ACTUAL 1 1 1 =COST I II 

20 ACTUAL INVR<1I=ACTUAL IN YR<1 I FACTUAL III 

21 TOTAL 111= AC TUAL 111/11.0*0 1 SC 

22 70 TOTAl I NYR* 11 =TOTAL INYR ♦! I ♦TOTAL! I 1 

23 GO TO 209 

2N C TOTAL I lONYRI ARE COST FOR YEAR I 

29 C TO T AL 1 NYR* 1 1 IS PRESENT VALUE COST 

26 C T0TALINYR«2I IS ANNUAL COSTI 

27 89 DO 20) 11=2. Kl 


• I c here there are sublevels to be computed 

I F| ISUB I I II .LE .01 GO TO 200 

R£ A0<8<ISU9<1 I l.£RR=67D I ISA • ACOOE. AT I TLE . ACOST. 
♦AFCOST 
00 93 1=1. NYR 

IFIFLATE.NE.O.OIBCTUALII I=AFC0STII1 
I c < fl ATE .EO. 0.01 BC TUAL < 11= ACOST III 
BCTUAL <NYR«I I =BCTU*l INYR<1 KBCTUALI II 
ATOTAL! IKBCTIIAL <11/11. 9<DISCI«I 
ACTUAL I 1 1 =BCTUAL <II<ACTUAL<II 
TOTAL<IITTOTAL<IKATOTAL<H 
ATOTALINTR.il =A TOTAL INYR<I KATOTALI II 
AT0TAL<NYR<2KAT0TAL<NYR<1 KAC-ACT 
UR IT E I 8 * ISUB <111 .ERR =600 1 ISA, ACOOE. AT ITLE .ACOST. 
<A=COST. ATOTAL .BCTUAL 
ACTUAL IN YR< 1 1 TACTUAL <N YR <1 1 <BCTUAL I NY R<l I 
TOTAL < NYR< 1 KTOTAL <NTR<IKAT01AL<NYR<II 
ATOTAL IN VR< 11=0.0 
AT0TAL<NYR<2I=0.0 
BCTUAL INYR<1 1=0.0 
CONTINUE 

T0TAL(NVR<2I=T0TAL IN YR <1 1< ACFACT 
WRIT£<B*IRC1*ERR=600I ISUN t C OOE . T ITLE .COST. 
.FLCOST, TOTAL .ACTUAL 
IFIIRC2 .EO. D) SO TO 997 
CALL SBLNK 
rai NT r.Avrr roSTF 


SHCOST SOURCE LIST 


05 

tn 


56 

5? 

59 

59 

60 
61 
67 
63 
66 

65 

66 

67 

68 
69 
TO 
71 
77 
73 
76 

75 

76 

77 

78 

79 

80 
81 
87 
93 
66 
85 
66 
97 
68 

89 

90 

91 
97 
93 
96 

95 

96 


REAut 8 *IRC 2 .ERRr 609 ) ISUB • CODE* T I TLE .COST . 

♦ HCOS! 

IFIISU 5 I 2 ) .Of. 01 SO TO 300 
DO 760 Jrl.NTR 

I?! PL ATE. NE. 0 . 0 > ACTUAL! J)r?LCOST! J) 

I FI FLA TE.EO . 0 . 0 ) ACTUAL I J)rCOSTII> 

TOTAL! JlrFLCOST! Jl/I t . 0 * 0 ISC » J 
ACTUAL INVR + 1 ) r ACT UAL 1878 » 1 ) •ACTUAL! J) 

? 6 u T 0 TALI 3 TRM I: TOTAL INVRM I aTO TALI J) 

TOTAL ! NTR* 7 ) rTOTAL INYR.I >♦ ACFACT 
00 TO 500 

300 DO 350 Jr 2 .K) 

I-IISU 3 IJI .LE.OISO TO 353 

READ ! 8 * 15 UBI J) » ERR = 600 ) IS A. AC OOE. AT ITLE • ACOST • 
♦ACCOST 

€••• If HERE SUBLEVELS ARE TO BE CONFUTED 
00 370 Jtrt.NVR 

I c l PLATE .EO. 01 5 CTUAL! J 1 )=C 0 STI 1 ) 

IPfPLATE .ME. 0 1 5 C TUALI Jl )=A c C 3 ST!Jll 
BCTUAL INTRa) > rBCTUAL I Jl ) ♦BCTUAL! ATR aI I 
ACTUAL! J 1 1 FACTUAL ! Jl I ♦BCTUAL ! Jl I 
ATOTAL I Jll rBCTUAL ! Jl ) / ! 1 . 0 * 0 IS C > ♦ ♦ Jl 
TOTAL lit) rTOTAL !J 1 1 ♦ATOTAL!JU 
320 ATOTAL IHTR*I ) r ATOTAL !NTR«I ) ♦ATOTAL! Jl ) 

ATOTAL INVRA 2 >rAT 0 TALINVRAt I •AC- ACT 
TO TALI NTR* I ) rTOTAL IN VR a) )aATOTAL I NVRaI ) 

ACTUAL! NVRa I ) r ACTUAL !NTR* 1 l»BCTUALINTRA|) 

UR ITEI 8 * ISIIB IJ) » ERR r 600 ) ISA. AC ODE. AT ITLE. ACOST » 
♦ACCOST. ATOTAL. BCTUAL 
ATOTAL INTRa 1 > = 0.0 
ATOTAL!NTR* 2 )rO.O 
BCTUAL INTRa) I rO.O 
350 CORTIMUE 

TOTAL I NTR* 7 ) rTOTAL INTR a) )aACFACT 
500 WR I TEI 8 * IRC 7 . ERR= 600 ) ISUB.COOE. T ITLE .COST. 

♦PL COST. TOTAL .ACTUAL 
550 RETURH 
600 WRITE 1 6 . 601 ) 

631 F 0 RRATI 5 X* 'ERROR IN 8 ETREP*) 

RETURN 

ENO 


APRT.S A. NFL ATE 


DATE 092879 


RAGE 


27 



SHCOST SOURCE LIST 


UA TE 092079 


PAGE 


20 


SH9C0SM II.NFLATE 


1 


SUBROUTINE NFL ATE 

2 


INCLUDE PARS 

3 


CONNON /NFL T / FLATE 

A 

1 

CONTINUE 

5 


CHK=0 

6 


1=2 

7 



0 


READ TOP LEVEL I c NO COSTS ARE RE RE SEARCH LOWER LEVELS 

to 


REAOT 0* IRCl *ERR=600I ISU9 • CO DE • T I TLE • COST 

11 

1001 

FORMAT! IX. 3X, *ISUBS>>* .201 2X» 19 »> 

12 


FLAT= r LATE*l.O 

13 


IF! COST III .EQ. 01 GO TO 50 

l« 


00 9) 1=1. N7R 

15 


I 1=1 ♦ Jf DSC 

1 6 

90 

FLCOSTI 1I=C0ST<I »*FLAT**II 

17 


URITEI0* 1PC1»ERR=600I ISUB.CODE.T IT LE .COST * 

16 


•flcost 

19 


GO TO 520 

20 



21 

{»•» 

DETERMINE TYPE OF OATA AND OECIOE IF INFLATION APPLIES 

22 

c*»*< 


23 

50 

I SUTCH=1SUB 1 19— IRCl 

29 


I c ! ISUTCM .GT.16 .OR. ISUTCM .LE. 01 SO TO 300 

25 


REAOI0MSUBI I).ERR = 600> IS A. CODE . T ITLE . COS T 

26 


IFIISUB! I) .GT.100I GO TO 100 

27 


GO TO 1 359.350. 350. 55. 250*359. 250.250. 359*250. 350.350. 350*350. 

20 


♦ 250. 350. 3507. ISUTCM 

29 

190 

GO TO 1 353. 350. 350. 55. 250.350. 250. 259. 359. 359. 390. 350. 350. 

30 


*750.390.3501. ISUTCH 

31 

C*M< 


32 

C*9* 

CHECK COSTS IN LEVELS UNTIL NOT = 7ER0 

33 

c*** 

WHEN NOT 0 INFLATE COSTS ANO PUT IN =LC3ST 

39 

c***< 


35 

55 

00 69 J=1.NTR 

36 

60 

CHK=CHK*COST IJ» 

37 


IF ICHK ,NE. 0.0! GO TO 710 

30 


11=2 

39 

65 

I r ! ISA! Ill .LE. 0 ! GO TO 165 

90 


READI0MSAI11 ! .ERR = 600! ISB.COOE .T I TLE .COS T 

91 


00 70 J=1.NTR, 

92 

70 

CHK=CHK*COST IJI 

99 


1= ICHK .ME. 0.01 GO TO 150 

99 


12=7 

95 

75 

I c l IS9! 121 .LE. 01 SO TO 110 

96 


REAOI0*ISBII2I.ERR=6OO! IS C .CODE. T I TLE .COST 

97 


00 00 Jrl.NTR 

90 

00 

CHK=CHK*COST IJ! 

99 


I r l CHK .LE. 0.0 ISO TO 300 

50 


DO 90 J=1 . NTR 

91 


JJ=J*JTOSC 

52 

90 

FLCOST IJI=COST 1 J)*FLAT«*JJ 

53 


WRITE I0MS9! I7I.ERR=600I I SC . C ODE . T I TLE . C OST • 

59 


♦ FL COST 

59 

1 lu 

I 7=1 9»| 


SHCOST SOURCE LIST 


OA1C 092079 


RAGE 


<x> 

-3 


so 


CNK=0.0 

37 


IF 112 .LE.K11 GO TO 73 

30 


GO TO 103 

39 

15b 

DO 100 J=I.NTR 

60 


JJ= J* JTDSC 

*1 

10b 

•aCOST IJI=COST ( J)*FLAT**JJ 

62 


UR I TEI IMSA(I1 1 .ERR =6031 ISB. C DOE *T ITLE • COST* 

03 


♦FL COST 

09 

103 

11=11*1 

03 


CNR =0.0 

00 


f^lll .LE.R1 1 GO TO 05 

07 


60 TO 290 

00 

200 

DO 210 J=I.NTR 

09 


JJ= J« JVDSC 

70 

21b 

FLCOSTIJIrCOSTI J»*=LAT**JJ 

71 


UR IT El 0* 1SUB III » ERR =0001 1SA»COOE*T ITLEtCOST* 

72 


♦FLCOST 

73 

29U 

1=1*1 

79 


CNK=0.) 

73 


1F1I.LE.K11G0 TO 50 

70 


GO TO 520 

77 

c»»*< 


70 

C* • • 

COSTS MERE ARE IN foRH 0- ONE COST BUT MEED TO 9E 

79 

c**» 

COST 111 IS INFLATED BT TEAR 

oo 

c***< 


01 

250 IF ICOST 111 ,E3. 0,C .AMO. 1SAII) .ME. 0) GO 

02 


00 253 Jrl.NTR 

03 


JJ=J*JTOSC 

09 

233 

c LCOSTI J1 =C0S1 til * e LAT**J«l 

03 


UR IT El 0* ISUB 111 «FRR=OOOI ISA. CODE. TITLE* COST. 

00 


♦FLCOST 

07 


GO TO 300 

00 

270 

11=2 

09 

275 

I F| ISA 1111 .LE . 01 GO TO 290 

90 


REAOIBMSAIUI *ERR=09D> IS9.C90E .T ITLE. COST 

91 


IF 1 COST III .CO. 01 GO TO 300 

92 


DO 2B1 J=1 »NTR 

93 


JJ=J«JTOSC 

99 

200 

FLCOSTI JI=COSTIt l*FLAT**JJ 

93 


URITCI •• ISA 1 111 .ERR =0001 ISB.COOC.T ITLE. COST. 

90 


♦FLCOST 

97 

29b 

11=11*1 

90 


I- 1 1 1 .LE. Ml GO TO 273 

99 

30b 

1=1*1 

100 


CNK=0.3 

101 


I f 1 1 .LE. RII GO TO 50 

102 


GOTO 320 

103 

35b 

00 370 JJ=1.RTR 

109 



105 


THESE COSTS ARC NOT INFLATED BUT COSTS ARE PLACED 

100 

c*«*< 


107 


I F| 1SUTCH .RE . 01 FLCOST 1 JJ1 =COST I JJI 

100 


FLCOSTI JJI=C0STI1I 

109 

37b 

CONTINUE 

no 


URI TCI SMSUBt 1 1 « ERR=OD0 1 ISA .CODE. TITLE. C DST . 

111 


♦ FI TOST 


SHCOST SOURCE LIST 


O* fE 09287? 


PAGE 


20 


GO TO 300 
520 RETURN 

*00 WR I TE I 6> 601 1 
«Rk TORN# T( 5X • * ERROR IN N-LATE‘1 

RETURN 

C 0E5U3 TRACE. SUBTRACE. INIT 

C AT 1 

C TRACE ON 

ENO 


9PRTtS A. PAGES 


ONCOST SOURCE LIST 


dote 0*207? 


1 1 ». oasts 


SUBROUTINE PaGESfRURL) 

CORK ON /POSE /N 1 . IPRSNO • LCN • INC NT » T I TLE 
CONNOR/SEC/I SECT 

CORROR/CITrS/HORESIlSn 

CNaRiCTER RaNES*63.NI**. TITLE* 39 .HONE* 43 
CHRRaCTER*?? PORRTS If > .PORRRT 
CH4R0CTER*? NORTHS 1121 
OOTO NRRE/43H 

I / 

ONTO NORTHS/ *jaN.*« *PEB. • , iMR < 


DOTS rORRTS/ 


•JON.’ 

•••PER 

.•••RaR.*.*aPR.*»* 

•aus.< 

.•SEP 

••••OCT.*. *N9V. • . • 

• flH*. T 120* 

13. IH. 

«II»1N.*I1)' 

•IIH*. 

T120. 

13. 1H. 

.II.IH..I2I* 

• t IH*i 

T 120. 

13. IH. 

.II.IH..I31* 

•f IN* 

TITO. 

IT.IN. 

.17. IH..II** 

• f 1H*» T 1 20. 

13. IH. 

.I2.1H..12)* 

•f IN* 

> T1 TO. 

I3.1H. 

f I 2. IH. • 1 3> * 

• f 1H*. T 120* 

I 3. IH. 

. 13. iH.»n>* 

•f 1H*< 

>T120. 

I3.1H. 

.I3flH.tI2>* 

•f 1H* 

T 120. 

13. IH. 

* IS.IH.f 13>* 


ROT • * * JUNE *. • JUt ?•* 
DEC*/ 


L NC N T=L NCR T» HURL 
IPILNCNT.LE.53> RETURN 
lRasR0=iPasN0*i 
LNCNTrNUHL 

IPfLRCNT.GT.55l LRCRTrf 
OECODE I 4. ICIfNI > IN, in. IT 
PORROTf 1121 

IP f LCN .RE .0 > RaRErNaRESf LCR> 

WRITE 1 4. 1031 T I TLE. NONE. NORTHS! IH). ID. IT 
NUNrO 

IPf ISECT.6E. 101 RUN =NUN*3 
IPfISECT.6E.IOUI NUR=NUR*3 
I r f IPaSNO.GE.lD> RIJN r RUN* I 
IPf IPaSNO.GE .100 RUN-RUN*! 

NUNrNUN* 1 

PORNO T rPORNTS f NUN > 

URI TEf 4 . r ORNaT ) LCN .(SECT.IP4SN9 
PORN aTI |M| .030. a43.lR.aa.I3* *. 1 ?• » I2> 
URtTEf 4.192) 

PORNaTf //> 

RETURN 

ENO 


4PRT.S O.RRRS 


SHCOST SOURCE LIST 


OAIE 07ZB7* 


PAGE 


32 


RS 

AMS PROC 

PARAMETERS FOR SOLAR COST PROGRAM 

PARAMETERS ISI ■ ICI RUST BE UPDATED I- THE SLOCK * O c 
SHVAC AMD/OR CMfAC ARE CHARGED. OTHER BLOCKS UNOER 
THESE SLOCKS NEED NOT BE CHANSED AS L0B3 AS THET CORRESPOND 
TO THE BLOCK • INDICATED IR THIS PROC. FAILURE TO AOJUSf THESE 
PARANETERS TO THE APPROPRIATE VALUES MILL YIELD UNPREDICTABLE 
RESULTS. THESE PARARPTERS ARE USED TO KEY ON THESE BLOCKS 
r OR THE SPECIFIC CALCULATIONS USED c OR THAT ITER. 

PARAMETER IL C - TOO *91 OCK ■ 3- LI^E CYCLE COSTS 
SOLAR PARAMETERS ISI 
PARAMETER ISI=I * BLOCK B 0- SHAC 


PARAMETER IS?=ISt*t A BLOCK OP ACQUISITIONS 

PARAMETER IS3r ISt •’ a BLOCK R 3 r BUIL0IN3 MODIFICATIONS 
PARAMETER ISV=ISt*3 a BLOCK ■ OP SPACE OCCUPIEO 

PARAMETER ISSr ISt • A A BLOCK R 0- NET REPAIRS 

parameter isa=isi«b a block a op maintenance 

PARAMETER IST=ISt*A a BLOCK a O r OPERATIONS 

PARAMETER ISB = 1S!«7 3 BLOCK a O c PROPRERTY TAX 

PARAMETER IS9=ISI»B a BLOCK a 0- PROPERTY TAX DEDUCTIONS 

parameter isio=isio a block a op dererciatin deductions 

PARAMETER ISllr|SI*l!» a BLOCK a 0- RODEO INCOME 

PARAMETER ISI?=ISI«II B BLOCK a OP INSURANCE COSTS 

PARAMETER ISI3=!S1*1? a BLOCK a OP SALVAGE VALUE RPTER N YEARS 

PARAMETER ISI ArlSl *t 3 A BLOCK a OP LOAN MORTAGE 

PARAMETER ISI5=ISt»IA ■ BLOCK B OP LOAN PAY 

PARAMETER ISI*rISl«IS A BLOCK a OP MAINTENANCE OEOIIC IS PROM INC TAI 

PARAMETER IS|T=IStMA I BLOCK R ENER3Y DEDUCTS POR COMMERCIAL 

CONVENTIONAL PARAMETERS ICX 


PARAMETER ISArlSIO 
PARAMETER ISSr ISt • A 
PARAMETER ISAr ISI *3 
PARAMETER ISTrlS l • A 
PARAMETER ISBrlSl«7 
PARAMETER ISV=ISI»S 
PARAMETER ISI0=IS1*Y 


parameter ictrim a block a 3- chvac 

PARAMETER IC2=IC1 *1 a BLOCK a OF ACQUISITIONS 

PARAMETER IC3rICI»P Q BLOCK a O' BUILDING MOO I c ICA T1 JNS 

PARAMETER ICArlCI *3 a BLOCK B OP SPACE OCCUPIEO 

PARAMETER IC5= ICI *A B BLOCK B 0- NET REPAIRS 

PARAMETER ICArlCI *S Q BLOCK B OF MAINTENANCE 

PARAMETER ICTr IC I *A 8 BLOCK B 0 ; OPERATIONS 

PARAMETER ICBrICt *7 B BLOCK a OF PROPERTY TAI 

PARAMETER ICVrICIM 8 BLOCK B OP PROPERTY TAI DEDUCTIONS 

PARAMETER ICIOrICI*? a BLOCK A OP DEPRECIATION 0E0UCI10NS 

PARAMETER ICIRrlCt *12 A BLOCK B 0- SALVAGE 

PARAMETER ICI 1 r ICI *1 t A BLOCK B OF INSURANCE 

PARAMETER ICI 3rl Cl M 3 A BLOCK A 0- MORTAGE 

PARAMETER TCIArICI«IA A BLOCK A OF LOAN PAY 

PARAMETER ICIBrlClMM 
PARAMETER ICIArlCIMA 

PARAMETER ITr2« A ARRAY SI7E O r YEAR ARRAY 

PARAMETER NCSTr If «A AARRAT SIZE O c COSTS ARRAYS 

PARAMETER MTOTrMCST A ARRAYSI7E O c TOTAL 
PARARETER K|r|7 AARRAT SIZE IP ISUB 

PARAMETER IPlr? A ARRAYS 1 7E O c COOE 

PARAMETER IP2r» A ARRAY SIZE OP TITLE 

PARAMETER K f r**MCS T.?«M TO T *K I *|P| ♦I»2*B 
PARAMETER K3rK?«?«25 A PUPPER ARRAY SIZE 

PARAMETER l IrP » ■ 0 - LEVEL 1 3R0U*S 


smcost sooner list 


D*ll 


•ABE 


19 



L* = B 

B R 

0- 

LEVEL t 

SROU»S 


L9=9 

B 

■ 

OF LEVEL 

9 BROURS 

RARARETER 

LR=0 

a R 

OF 

LEVEL R 

BROURS 

RARAHLIER 

IS=0 

B 1 

B of LEVEL 5 

BROURS 


LA-19 

a 

a 

OF LEVEL* 

BROU»S 


Murnux HR=L I «L? «L3.LA«L9*L* 

PARAHETER IG C L =R5 

rtMHCIER RTR rRR. A 

IRTE3FR datopt.cltprr 

CHARACTER** CODE . CCOOE • ECOOE. AC OOF -SC 00 t . DCOOC 
CHIRICrCRM TIIlEltMlirLtUlillTIHEHl .CTITLETAt.OTI TLETAt 
*»ETITLEI*> 

COHHOR/SNAC?/ ISU9 C* 1 1 .CODE t T I TLE t COST < RCST I • TOTAL t AT 31 >• 

• Ft COST IRCST). ACCOST IRCS T I .RFCOST IRCST I * CFCOST I RCST »• OFCOS MAC S M. 

• ACTUAL I NTOTI.flCTUAt ERTOTI >CC TUAL I RTBTI .DC TUAL t AT 3T I 
COHHON/SHACI/NTR. IVR IIT> .DISC.ACfrCT. icon. IRC I » IRC? • IRC9* IRCA • 

♦ RSLK.SU--CRIK J» .1 VAST .1.1 J*. IRC*. I BSC * IRRST *lL r CT.JTDSC« IOISC, 

♦owrrrt.cstpsh.cliprh.lcn.loa.xload. irlots.tircoh.rt ax 

C0RH0R/SMAC9S ACOST (HCSTI .BC9ST IRCST I • CCOSM RCST I.RCOSM RCST I. 
♦AT I TIE. PT ITLF.CTITLE.OTITLE .ACOOE.DAT ORT .BC90E . 

♦ CCOOE.ICOOE.ISAEKt I . I SB« R1 1 • I SCT K 1 1 * ISI« Kl I . A TOT ALT RTO T I . 

♦B TOTAL IRTOTI.C TOTAL IRTOTI 

COHHOR/3-LO/ARE A ( IS'L I »PCTIIG c ll . SI I3 r Lt .RRICE T 1 8 C L I 
COHROR/OSCTOR/OSSTRT.DSSTOR.OSSTER.'TSTRT.FTSTOR.CTSTCR. 
•ORSTRT.ORSTOP.ORSTFR.TRLTOR.RTSTRT.R)STO».RTSTE».TSTO*. IS TART 
♦.TSTER 

BIRERSIOR ISCTKII.ETOTALTRCST) .CCOSTTRCST I 


CRD 


1 


SHCOST SOURCE USE 


l) » » f 07787? PAGE 98 


SM*COST! 1 1 .PL T OR* 


1 

7 


c 

90 


SUEROlH INE PL TOR* IX .▼ . X CN T . IP LT OP. 1 PLOTS! 
INTE5ER XCNT 

CHARACTFP*35 LABEl I6I.LA9I51 
DIMENSION XI79I.XI79.9I .7!?5I.X!9I 

PRINT •••ONE* 

M 11:0 
00 1* J:2»* 


7 

10 

70 

71 


78 

30 

90 


VRAXrVI I . J» 

DO U !=?.*LNT 

to iFinjiJl.ST.(Mr) 

11 1PIYRAX. If. 103.9; 30 TO 1? 

MJUK »H 

YRAK:VRAX/10.3 
GO TO 11 

12 DO 18 Irl.XCNT 

18 fl I.JlrVI I. J> / I 10**K ! Jl I 

LANELI8I:90MPRESENT value cost 
LABELI?I: 90HACTUAL COST 
IRINrKI II 
XRAXrPLOATf IN IN I 
XRINrXRAX 

IMX!XCNTI-XRAX«A.) 17.16.17 
17 VRAX:XRAK».B 

1 PIXRAX .LT.XIXCNTII GO TO 19 
SO TO 18 

16 XNAXrXIXCNT) 

GO TO 18 

17 XR A KrIRAX* 8 • 

I'l XPAX.LT.XIXCNTI I 30 TO IT 

18 TR INrO . 

▼RAX: 7). 

GO TO 11.7.1. 8. 9.6I.IPLT0P 
I L ABELU l:90HC0LLECT0R AREA 

LABEL! »!=90MPERCENT LOAO - ACTUAL C3S1 

LA9EL13l:90HPER r 0RNANCE AND COST AS RELATE) TO COLLECTOR AREA 
LABEL 1 91 rSOUPRE SENT VALUE COST AS RELATED TO COLLECTOR AREA 
C XR AX: I 60 .0 

C XRINrO. 

TRIN:|). 

▼RAXrlCO. 

SO TO 7 

7 LABEL! 1I:90HO I SCOUR T RATE 

LABEL! )l:90HACTU«L COST AR RELATED TO DISCOUNT RATE 
LABEL! 91 =SOHPRESENT VALUE COST AS RELATED TO 01SC0IINT RATE 
GO TO 7 

3 LABEL! 1 1 :9CHIN C L AT TON RATE 

LABEL!3I=90HACTUAL COST AS RELATED TO INFLATION RATE 
LABELI9l:90HPRESENT VALUE COST AS RELATED TO INPLATOON RA IE 
SO TO 7 

9 LABEL! 1 1 :90H00UNP ATRENT PERCENT 

LAB ELI 91: 99 HP RESENT VALUE COST AS RELATEO TO OOUNPAT RENT 
L ABEL I )l:90HAC1UAL COST AS RELATEO TO OOURPAfRENT 
GO TO 7 

> u.ri »•* o»»r 


SMC OS T SOURCE LIST 


DOTE Of 20 7f 


M8C 


95 


56 

5T 

50 

5f 

*0 

*1 

6? 

69 

6* 

65 

66 
67 
60 
6f 
TO 
71 
77 
79 
76 

75 

76 

77 

© 70 

«•» 7f 

00 

51 
07 

• 9 

• 6 

05 

06 
07 
01 
S? 
ft 
fl 
f 7 
f 9 
to 

t5 

06 

07 

to 


LABELI 3I=50MACTUAL COST 6S RE16TE0 TO RRORERTT TSI ROTE 
LS9ELI 5 1 -50MPRESERT VALUE COST 6S OELOTED TO RRORERTT TAX RA|f 
GO TO t 

6 L65ELI tl=B3HIRC0HE T6X RATE 

l AtCll 9«=50MACTUAL COST SS RELATED TO 1RC0RC TAX RATE 

LABt; IBIsBOHPRESERT VALUE COST AS RELATED TO IRCORE TAX ATE 
t COST HUE 

I-IIRLOT*. -E0.7I SO TO 90 

DO 71 1=.. i 

DO 70 I • 1 1 XCMT 

70 If ItsVtivJ) 

ICOOE=J 

1RIIPLT0P RE.I.ARO.J.EO.II 60 TO 71 
|Rf 1PLT0P..'C.I.AR0.J.C0.7I IC09E=I 

CALL RLOTER IX . I. XCMT* LABEL! 1 » 'LABEL 1 7 1 .LABEL 1 9 I* XRIR. XHAX »TRIR. 
SVRAX* ICOOE I 

71 C0RT1HUE 

LABI I l=50HPRECERT LOAD COVCREO 

LABI 7H50MACTUAL COST OR THE SHVAC 

LABI 9I=90HACTUAL COST O c TIE CHVAC 

LABI AlrBCHPRESC VT VALUE COST OR THE SHVAC 

LAB 151 ?50HPRESERT VALUE COST O e THE CHVAC 

ICOOE=l 

IRfIPLTOR.RE.il 60 TO 51 
CALL L E6ER0 ILABIll.KItl.ll 
ICOOE =7 

51 CALL LE6ER0 II AB I7I*R!7I* ICOOE I 

CALL Li3ERf)UA9f 9I»R(9|*9I 
90 00 59 JsS*5 

DO 96 I =1 t XCRT 
56 71 llsTll.JI 

I CROC = I 

IRIJ.Et.5l IC00E=9 

59 CALL PL0TER<X*I*XCRT*LA9CL(II*L69EL<6)*LA9-L<9I»XA|5.XAAX*VR|R* 

•THAI* ICOOE I 

CALL LI 3E ROIL AS I 6l.RI6l.il 
CALL LEGEROILAB I5I»R !B|*9I 
00 IB f =1 • XCRT 
00 15 J=t *5 
15 TII*JI=0 

XCRTrt 
RE TURR 
CRD 






6PRT*S A. PLOTS 




SMC OS T SOURCE LIST 


OR ft 097073 


SM»COS?« I I. PL01S 
I 
7 
J 

« 

5 

* 

T 

• 

? o 

10 II 

It 


SUBROUTINE PL0TER<X.3.NB.*TIE.TTLC.HE»0E«.XNIN.XNN:(,TN1 N.TRNX.IO I 
P7 MENS ION X (751 .*1751 .a < 751. B I 75) 

CHARNCTER*N XTLE I !• ) * T TLE ( I 6 I .RENDER! INI .LOCNfIN I 

•iMCMRrO 

I ICHRrJ 

ITCHRrO 

DO 13 1=1. IN 

I*IXTLE( ll.CO.NH > SO TO II 

1XCMR=IXCHR*N 

DO |? 1=1. IN 

I-ITTLEI It.EO.NH I GO TO 13 

I YCHRr 1TCHR.N 
00 IN 1=1. IN 

IMHCaDERI II .EO.NH I 60 TO 15 

IMCHR=IHCHR«N 

CONTINUE 

I*LG=0 

DO IN Iin.RR 
V I 1 1 I =N fill 
Tl II 1=81 111 
miO.NE.ll SO TO 75 
XNUR=0 

CNLL SfNBOL (0.3. l3.?..|N3.HERDER.0.3iIMCMNI 
SCOrf INNI -IN INI /0.0 

CM.L NXfSf 9.0. I.O.XTl E.-IXCHR.B.9 .9.3.ININ.SCN I 
SCarf TRAI-TR INI /N.O 

CNLL N*IS(0.9»t.9»fTLE» IT CNR. 09. 3. 79.0.VRI0.SCRI 

00 73 1=0. a 

I5=-L0NT( If 

CNLL PLOTIXB.I .0. 31 

CNLL RLOTf 10*19.0.71 

ITII.IO.fi SO TO 73 

CNLL PLOT! 10*9.5. 10.9*31 

CNLL PI 0T(VB«0.5. 1.0.71 

CONTINUE 

oo 70 in. to 

XNrPLONTI I • 

CNLL PLOTIO.O.XB.3I 
CNLL PLOTI B.0.X9.7I 
1*11. CO. 101 SO TO 7 N 
CNLL PL 0TI0.0.X9 0.5*31 
CNLL PLOTfO.O. 10 *0.5 .7 ) 

CONTINUE 

CNLL SRNLEfX.XPIN.VNNX.O.O.O.O.NRI 

CNLL SRNLrf T.TRIN.TNNX.1.3.7.9.NRI Q 

CNLL PL0TIXfll.TIII.3l 

DO 33 Kt=7.NR 

iriKIRll.LT.0.01 *1*11=0. C 

1*1 XIRII.GT.N.OI X(R|l=?.0 

IFIf I* II .LT.t ,0) *1*11=0.0 

1*1 rfR|l.6T.|9.9l T(R||=I3.0 

CNLL PL0TIXIHII.TrKII.7l 

CONTINUE 

XNURrXRMR. I 

no « »i-i .«• 


33 


MCOST SOUftcr LIST 


no 


»*»?•* t.Mtin 



D«rc 0*2*7* 


37 






C 


c 


oncost sounce list 


I'A.'C 0?}«ft 




SH*COST( II. 
I 
* 

3 

* 

? 

■ 

* 

10 

II 

It 

13 
IN 
19 

14 

14 

Q !! 


POSAVC 


SUBROUTINE P|>SA VC 
INCLUDE PARS 
CPPMON/SIC'ISCCT 
CMHON/IPI/lf 
CONROM/N*l T/FLATE 

c onnon/c ol l * /c ol * 1 4 1 

CORDON /SUR/SHVAC. CMO AC • ACLCS.PVLCS . ACLC*C. PllCFC(»SAICt»CHAC 
MNCNSION CURSAVim, ACUNSVCIOI v 

AEADIIMSIiCAinOOl ISE.rcOOE.CTITlC.CCOST *£T OT Alt TOTAL* 

• ACTUAL «. Nv 

RCAOf 0'lCI.COR=4OO» ISC. CCOOC • ET !TLC .CCOST .C TOTAL .AT OTAL. 

•actual 

met 

I A- LBrl 

00 100 1=1. Nor 
11=1 -I 

APOSAV=OC TUAL III -AC TUAL III 

l*« i.at . i iacursv* i i=acunsvt ii i*a»osav 

I*II.CA.|IACUOSVI1I=APOSAV 

PSA VC =A TOTAL I I I- TOTAL I 1 1 

1*1 l.NC.I>CUOSAVII>=CURSAVIIII*PSAVC 

i*i i.e j. i icursavi i»=psave * 

IFlAPOSAV.lt . 0.0R.IA*L6 .AC* II GO TO TO 
1A=L5=*» 

I A SVOR = 1 • I ORST 

I e l PSAVC .LC. 0.00. I *L8 .01. II 00 TO 100 
1*16=00 
isvro=i*ivosT 

CONTINUE 

I SO = I SOTO- 1 TOST V 

] ASV= IASVOO-ITOST 

PSAVC =4 TOTAL (ISVI-TOTALIISVl 

APOSAV=BCTl»AL IIASVI-ACTUALIIASVI 

CALL P A 3C S 1 0 TO *A I 

IfO ITCI4.7C0* ISO VO .PSAVC* I A*PT 0. APOS AV . « I VO 1 0 I.CUOSAVIKI. 
•ACUOSVIRI .0=1.0001 
*LATC1=*LATC«IOO.n 
TtNCMl=T|OCOO*(01.0 

PT AT I rP TAI* 100 .0 * 

DISCI =3 ISC* ISO .9 ^ 

DO POTrPWNPOT® 109.0 

1 r 1 1 PL TOP. CO. I I VAO 0 = AOC A t IP I 

I *1 IPL TOP .CO .P I VAO 0=0 1 SC* 160.0 
l=(|PLT0P.C0.3l VAOO==LATC*l»0.» 

1*1 IPLTOP.CO.O) V AO 0 rOWNPNT • 1 00 .0 
l*l|PLT0P.C0.3l VAOO=PTA1«190. J 
1*1 IPL TOP .CO .4 1 VAROrT |NCOR*IOC.f 
WO|TF«?*tSrCT»COO=400l ISCC T . V AA 0 . PC T * 1 *1 .31 

• •*LATC|.01SCI.0NPAT.CSTPSN.TINC0|. PTAII.AOCAIIP I.SNVAC. CWV AC. CVL* 
'•VSJMAC.PCHAC 

FOO0AT I IT. 139 (*• * I ./.PI . * IN ICAO * . IS. 1 1. * *0S IT 1VC SAVINGS WILL •* 

• •OCCHJI IT'./.IIi'AN AOOin T 0* *.*19.2.* IN ICONS 9* POCSCNT VALUE*. 
••DOLl\«»./.?«. *IN OCAP •. IS. I*. **3S1T |VC SAVINGS MILL XCUO*. 

• • BO*.A > .V.*»0 AMOUNT 0= *»*18.t» * IN TENDS 9- ACTUAL DOLLARS*.'. 


SHCOST SOURCE LIST 


OR ft 072*19 


• * VALUE SAVINGS **2X* 'ACTUAL SAVINGS**/* 
♦«2( •-•l*/*5041K*I?*BK.ri9.2f 12K«-t0.2*/l» 
RETURN 

URI TE ( A * 691 ) 

rORNATISX* 'ERROR IN ROSAVEM 
RETURN 


ADO 

*01 


CNO 


smcost source list 


SUBROUTINE PVAC 
INCLUDE PAPS 
DIPENSION I 9 TP A I l 1 1 

OATA IBTPP/9. 10 tl 3. I ».l I . 16. 17. 1C?. Ilbt 1 1 ? • 1 1 3 1 11 9 1 1 1 6 / 
COMBINES TOTALS IN AAJOP APE A S TO OBTAIN *V »«I0 AC 
I P I 1PC I .CO .01 60 TO 19 0 
CALL SALNN 

P E AOI A* IRC 1 » EPP =600 > ISUP.COOE »T ITLCtC OST« 

♦ c LCOST 

K»=« I* 1C»PCST*2 

AC = I . 9 
PV=C.O 
ACT=9. J 
ITIR:AT»«« 

00 103 I =2 • K I 
SI GN = 1 .C 

I r I I SUB I ( I . L E . 0 > SOTO 1)0 

READ SUBLEVELS POP PPCVIOUSLV CORPIJTEO PV ANO AC COSTS 
PEA01A*ISU9I|T«EPP=600I I SA . 9COOE . 9 TI TLE • 9C OS T . 

♦BFCOST. TOTAL .ACTUAL 
OCTCRPIVE S ISM -OP CALCULATION 
f PROPEPTt TA* DEDUCTIONS. OCPPECIAT I CN DEDUCTIONS. SALVA6E 

• VALUE A'-TEP N V E A P S . INTEREST ON P0PTGA9E » NO 

• A r T £P TAI iNCGPC Apr SUBTPACTEO PROA THE TOTAL COSTS 

• ALL OTAER COSTS APE AOOEO TO THE TOTAL COSTS. 

00 10 IT = 1.13 

|P| I SII9( I I • EO • 19 TRN ( I | I I SI 3N=-1 . 9 
I c l I SUB I II .6T. IPC1«3 IGO TO 39 
A TO TALI 1 IrTOTAL IN TP *9 I • S I 3 N* A T 0 T A L ( II 
PCTIJAL I I I r TOTAL IN TP *31 «S ISN*9CTUAL I I > 

ACT = ACT* TOTALINTR.il «S13N 
PV=»V* TOTAL |NTP«3»»SIGN 
AC=AC*T0TALINTR*?I*SI6N 
SO TO ICO 

IP| ISU9I II .NC.13.AN0. ISU9III . NE . 1 1)1 30 TO 3T 
ACTrACT-ACTUAl INTR«|) 

PV=PV-T0TALINTR*1 I 
AC=AC-TOTALINTR*?l 

ACTUAL! NTR »=9CTIJAL IN TP I -ACTUAL! NTR* 1 1 
A T 0 T AL INTRIrA TOTAL IN TP » - TO T A L I NTR ♦ 11 
SO TO 1)1 
DO AO J=1.NTB 

A TO TALI JI=T0TALIJ»«SI3N*AT0TALI Jl 
ACTUAL I JlrACTUAl I J I • S I SN *9 C TU A L I J > 

CONTINUE 

ACT=ACT»AC TUAL INTR«tl*SISN 
PV=PV* TOTAL IN TP* I |*SISN 
AC=AC« TOTAL INTR«2IPSISN 
CON i INUE 

IP| INPST .RE .1 > SO TO tAC< 

ACTrCOSTl 3 I ♦ AC T 
AC=AC*COST I?) 

PV:P V*COST I I I 

WRITF TOTAL PV AND AC INTO TOP LEVEL 

it. Trrii.iBfi .roo-nn irn>.rinr.Mn r.rut, 


0 A IE 0T2A 1 ? 


PA sc 


AO 



SHCOST SOURCE (.1ST 


96 ♦PLC0ST.»T0T6L.9CTU*LtPV.*C.«CT 

97 19U RETURN 

9« 600 WRI TE ( (• 601 1 

99 601 FORRAT 1 9X » ’ERROR IN PVAC*) 

60 RETURN 

61 ENO 


RPRTfS 6. RESULT 



DATE 092079 


P06E 






SHCOST SOURCE LIST 


DAfE 092879 


RAGE 


92 


SM.COST4 II. RESULT 


1 SUBROUTINE RESULT 

2 INTEGER XCNT 

3 COMMON SXC /XCNT 

9 C0MM0N/-L9G/IRL3 

5 COMMON /N C LT/FLATE 


6 

7 

n 

? 

to 

it 

12 

13 

19 

15 

16 
17 
IS 
19 
29 
21 
22 
23 
29 

25 

26 

27 

28 
29 

0 

1 

2 

3 

9 

5 

6 

7 

8 
9 
0 
1 
2 
3 
9 

5 

6 

7 

8 
9 
9 
1 
2 
3 
9 

« c 


CONNON/IP1/IP 

COMMON /SUM /SHVAC.CMV AC . ACLCS.P VLCS .ACLCFC. PVLCFC. PS MAC. PCMAC 

COM MON /SEC/ I SECT 

COMMON /LAST /PR I CEL 

INCLUO* PARS 

COMMON /CTLIP/CYLF <61 

COMMON/LNCN/NUM 

DIMENSION XI25I .7 I25.5I 

DIMENSION NOUT 1171 

OAT A NOUT/3.3.9.9.9.9.9. 9.9. 9.6.6. 6. 9*9.9. 9/ 

IRC1=IS1 

IP« IRC 1. CO .0) GO TO 250 
C PRINTS OUT RESULTS 
100 CALL SBLNK 

RCA0(8*IRCI.ERR = 69'I> ISUB.COOE. T I TLE 
CALL PAGES 199) 

CALL PAGES ( 3 1 
MR ITEI6.I0) COOE. TITLE 

00 2)9 1=2. XI 

C 9 • 9 READ SUBLEVELS O c TOP LEVEL 

I- I ISUBI II.LC.OI GO TO 290 
XL=ISUB< 1) 

IPIKL.3T.I19I XL =XL ♦ I 

1 r IKL . GT *1001 XL =KL -100 
NUM=N0UT(RLI»6 

1FIRL.GE.5.AND.RL .LE .1 0. OR . XL .GT . 1 31 NUN=NUM*NTR 
CALL PA3ES4NWMI 

READ! 8 * 1SUM II>*ERR=600I ISA * C ODE . T ITLE .EC3ST.ET 0TAL» 

•TOTAL .ACTUAL 

C WRITE INTERMEDIATE RESULTS 

CALL R C PRNT 
200 CONTINUE 

READ(8*IRC1.ERR=69(|I ISE .COOE . TI TLE • EC9ST tE T9TAL t 
•TOTAL.ACTUAL.PV.AC. ACT 
C WRITE e INAL RESULTS 

CALL PAGES INVR«8> 

WRITEI6.I5I CODE. TITLE. PV. AC. ACT 

WRITE16.18I IITR IJI .TOTAL! J>. ACTUAL (JI.Jzl.NTR I 

CHVAC=ACT 

PC MACrPV 

25b I - « IRC1.E0. ICI 130 TO 390 
C999 CHANGE FROM SOLAR TO CONVENTIONAL 
IRC I = ICI 
SHVAC=ACT 
PSHAC=PV 
GO TO 100 

C»99 WRITE L I r C CTCLE COSTS SAVINGS I c RE3UESTE0 
300 iniLFCT .NC. II GO TO 900 

REA04 R* IL e .ERR =60 9 1 ISA* CODE. TI TLE .C TL- 


SMC OS T SOURCE LIST 


DA fE 092B79 


56 

ST 

SO 

59 

AO 

At 

A2 

AS 

A« 

AS 

AA 

AT 

AO 

A9 

TO 

71 

72 
75 
79 
75 
7A 
77 
70 
79 
• 0 

• I 

• 2 
as 

19 

as 

SA 

97 

aa 

99 

90 

91 
9? 
9S 
99 
95 
9A 
97 


WRITE! A» SOS) 

CALL RISES! 91 
WRITE! At 3I0IC VLF 
ACLCS=CYL r f 21 
PVLCS=CYLFI11 
ACLC c C=CTL e !SI 
PVLCFC=CYLF||| 

395 FORMAT! lXtl32l***lt/tlXt9Xt*LI c E CYCLE COST SAVINSS*! 

310 FORMAT! lXt*PRESENT •• 

♦ * =** c t0.2t/tlXt* ACTUAL **TXt» =* • 

•F|C.?t /tlXt ’ANNUALIZED =*tF|0.2t /• 

♦ lit *THE PRESERT VALUE FUEL SAVIS3S ftHM./* 

• IX t*THE ACTUAL FUEL SAV1N6S = * t F|0.2t /t I Xt 

• •THE ANNUAL 1ZE0 FUEL SAVIMSS = • t F| 0 . 2 1 /// I 

10 F0RMATIIItl32!***It/tlXtA5t2Xt * RESULTS FOR *tAA9t/> 

IS F0RMAT!llt2XtASttXiAA9t/t2Xt*THE PRESERT VALUE COST Of THE SYSTEM** 
«• IS — *tF12.2t/tIXt* THE ANNUALIZED COST OF THE SYSTEM IS — *t 

»•— t»M*.*i/»Ut» THE ACTUAL COST I s THE SYSTEM IS *. 

♦FI2.2I 

ta FORMAT! IXt?Xt ’COSTS BY YEAR • t /«2lt • YEAR* t 51 t • PVCOST • tSXt • AC TUAL* • 

♦/ 1 2X t * 1 5X t * *tSXt* ••/* 

•SOI 2Xt I9tlXtFIJ.2tlXtFlO.2tZM 
90C XCNTrXCNT* 1 

Yl VCNTt I isPCTI IP I 
V I XCNT tP) =SHVAC 
YIXCNTt SlsCHVAC 
Yl XCNT t9!=PS MAC 
YIICNTtSI=PCMAC 

IFIIPLT0P.E0.I1 IIXCNT!=AREAI|P! 

IFf IPLT0P.E0.21 XI XCNT 1=0 1 SC *190. 3 
IF| I PL TOP .EO .31 X IXCNT 1 =FLATE» 100.0 
IFf IPLT0P.E0.9l XI XCNT! =DWNP NT* 100.9 
IF! IPLT0P.E0.51 X!XCNT1=PTAX*100.0 
I r ( IPLTOP.EO.AI XI XCNT IrTINCON* 190. 9 
C UR ITE I At 1000) IFLGt IPLOTS 

10*9 FORMA TI5Xt*IFL3*tISt* IPLOTS*tISI 

IF| IFL6.E0.1 .ARO. IPLOTS. HE. 01 CALL PLTDRV I Xt YtXCNT • I ML TOP t I*LO IS I 
RE TURN 

AOC WRITE! At A011 

AO I FORMAT! SXt*ERROR IN RESULT*! 

RETURN 

END 


APRTtS A.RFPRNT 


SHCOST SOURCE LIST 


OR f E 09207? 


PAGE 


A? 


SH'COSTI D.RFPRNT 
I 


2 

3 

A 

5 

6 

7 

8 
9 


to 


to 

11 

12 

13 

1 

1A 

C 

15 

10 

16 

17 

17 

1R 

19 

29 

21 

12 

22 

23 

? 

2A 

25 

21 

27 

20 

2? 

IA 

39 

31 

32 

199 

33 

3A 

35 

36 

37 

C 

3A 

AO 

3? 
AO 
A 1 
A 2 
A3 
AA 


A5 

A6 

C** 

A7 

C« 

AS 

50 

A? 

50 

51 


52 

53 
5A 



SUBROUTINE R C RR N T 
INCLUDE PARS 
COBBON /LNCN/NUN 
l r IISUS1I!.CQ.9> 50 TO 239 
SUBLEVEL HE AO I NG 
CONTINUE 

UR ITE 16*91 COOE .TITLE. NTR 

3 C 0RNAT(IX.S//.A3X.A3.2X.6AA»/«2X.*C9STS OVER THE *»I3** tEARS 9-« 

♦ THE AN ALTS IS * ) 

iswirnnsusm-i 

I c l ISWTCH .GT. 1001 GO TO 1 

SO Toil 939 .10. lD.9O.S0.99.A9fA0.A3. 19.19.19.A9.A0. 90. AO. AO I* ISUTCH 
GO TO I 1000. 10. 10. 50. 50. 30. AO. AO. AO. 10. 10. AC. AO. AO. AO. AO It ISM 1C H -100 
URITE COST RESULTS 
CONTINUE 

WRITE! 6. 161 TOTAL 1NTR ♦! I . TO I ALT NTR *21 * ACTUAL! ATRM I 
FORRAT 1 IX.//. IX. ’THE 00 UN PAVHENT r * * IX • F10 .2./. IX. F5.2» •* OF », 
♦•THE TOTAL COST*! 

I f ( ISA 12) .GT. 0) GO TO 12 

GO TO 239 

CALL PAGES 1RUB •A! 

UR! TCI A. 91 

format I IX* 2X t 'SUBLEVEL COSTS*. ///I 
00 IA JJ=2.Kt 

IFflSAIJJI.LE. 0) GO TO 1A 

REAOI 8MSAI JJI .ERR =690 1 ISE • AC3DE. AT I TLE .EC3ST .CTOTAL. 

•ACTUAL. A TOTAL 

WRITE! A. 151 ACOOE. ATITLE. ATO TALI ATRM ! .BCTUALINTRM I 
CONTINUE 

15 F ORB ATI IX»A5»6AA»/»1X«2X»*PRESEAT VALUE = *.F12.2*/t 
•3X.*ACTUAL COST =*»F12.2»/> 

0 OOUNPA-OWNPBTMOO.D 

WR1TEIA.171T0TAL INTR *3 ) , OOUNPB 
GO TO 299 

16 forbaTI IX. ?X. ‘PRESENT VALUE - *.F12»2./.3X. * ANNUAL •• 

♦•COST r *.F12*2./.3X.. ACTUAL COST =*»f|2.2./I 
WRITE COST RESULTS WITH TCARLV PV RESULTS 

WRITE! A. A5! TOTAL INTRM ». TO TALI NTR *21 .ACTUAL! AT A *1 I.IITNIJI. 

♦TO TAL I J » • AC TUAL IJ> .<1=1 .NTR ! 

AS FORBATI IX • 2X » 'PRESENT VALUE = • .f |2.2, /, JX. • ANNUAL COST = •« 
♦F12.?./,3X**ACTUAL COST = * * F12 .2* //. JX < ‘PRESENT VALUE A NO •• 
♦•ACTUAL COSTS BV TEAR*. //.AX. 

♦ • TEAR •» 5X.»PVC0ST».5X.» ACTUAL* »/• AX* • ••5X»* •»5X» * • 

♦./.S9I3X.I5* II.?I0.2. 1X.?19.7./I i 

GO TO 200 

• WHITE TEARLT COSTS FOR THIS ITER AND TEARLT COSTS f 9 r fACH 

• OF THE COBPONENT 5 COBPRISING THIS ITERS COSTS 

WRITE I 6 .AS I TOTAL INTR t| | * TO T AL < NT Ra2) .ACTUAL! NTRM I.IITRIRI. 

♦ TO TAL IK !. AC TUAL IK I *K=1 .NTR ! 

I r T ISAI 21 .LE. 91 GO TO 299 
CALL PAGCSINIIR^A) 

WPI TEI A. 22“ I COOE. TITLE 
00 100 JT2.K1.3 
J1=J*I 

I*- 


' *k 

— i 



113 




SMC OS T SOURCE LIST 


0«IF 072677 


*>isc as 


5* 

57 

58 
57 
60 
61 
6? 
63 
6< 

65 

66 
67 
66 
67 
7G 

71 

72 
7 3 

74 

75 

76 

77 

76 

77 
60 
81 
82 

83 

84 

85 

86 

67 

68 
87 

70 

71 

72 

73 

74 

75 

76 

77 

76 

77 

too 

tot 

1C? 

1.13 

104 

105 

106 
107 
106 
107 
I 10 
• II 


IMISMJI.EQ.01S0 TO 100 
1 r I J. N? . 2 I C6LL PASESINUNI 

RCADI6’ ISAIJl .ERR =600) ISC . C OOE , T ITL E .CCOST .E T0I6L • 

•TOTAL .ACTUAL 
IF| IS* IJII .tE .0160 TO 70 

REAOI 6 * IS* < J I I »CRR -400 I I SC . ACOOE . *T 1 T LE. EC OST • ET 07 *L. 

•ATOTAL »8CTU*L 
I' ( IS*I J2I.LE.0I SO TO 60 

R£AU I 6 • 1SAIJ21.EPRz6C0I ISE.NC3DC.BT1TLC.EC0ST.CTOTAI. 
♦BTOTAL.CCTUAL 

WRITE (6.2051 COOC. I T I T IE I 6* » . XArl . 5 1 »*C OOE . I *T 1 TLC IAB l.KBzl.51. 
♦8C00E .(8TITLEIKCI.KC-1.5I 

WRITE <6.2101 TOTAL IN TP • I > , A T OT AL I NT R«t > • BTOT Al INTR«I 1. 
•T0TAL4NTR.2I.AT0TAL I N T R *2 I «NT0TAL(4TR»2I .ACTUAL4NTR.I I. 

«8CTU*L INTR« 1 1 .CCTtlAl IN TR » | I . ( | YR f K 1 . T OT AL (« I . 

• ACTUALI * I . I YR(* I . A TOT4L4’ I .SCTIIALK I • I TRI* l.NTOT AL4K I . 

•CCTIIU IK|,*Z|.NYR1 

>0 TO 100 
60 CONT INUE 

UR ITFI6.204I CODE. IT ITLE4KAI .RAzl ,51 .AC00E. (ATITLElKS l.*S = l ,5 I 
WR |TE( 6*2151 T01*l IN TP *|>, AT31Alt4TR.il. TOT ALINTR«?>, 

•AT0TALtNYR*?l«ACTUAL(NYR»tl,BCTUAL(NTR*|l,(lYR(KI.T0TAL4KI« 

•*C TU*L IK » . ITR IK » •* TOTAL I Al .BCTUALI* I .RZl.NYR > 

SO TO 100 
70 CONTINUE 

WRITE I 6. 20 7 ICOOE. TITLE 

WR ME 16. *51 TOTAL INTR.|l,TOTALI NT R« ? ) • AC THAI I NT N«| >. I ITR I A I. 

• TOTAL I * I .ACTUAL!* I .* = 1 .NTRI 
1 Oh CONTINUE 

SO TO 200 

I5u WR I T C 1 6. 22 5 1 COOE . T I Tl C . ISU6 I 1 I . IRC I 

200 RETURN 
ACC WR I T| I 6 • 601 I 

601 C0RNATI5I. ’ERROR IN R-PRNT’l 
RETURN 

205 EURRATI lf»/. 3(21. A5. IT .5*4.1 7*1 ./I 

206 PORN AT I 1 1./. 2121. A5.1I.5A* .171 »•/! 

?0 7 c OP RAT I 1X./.2I. A5.1X.SA4.I TX. /I 

210 FORMAT! If./, 313*. ’PRESENT VALUE z • , F 1 2 .2, I 4* »./ , 3 131 » • ANNUAL *. 

• •COST z’» c l?. 2 . 1 **l ./. 343*. .ACTUAL COSTS z’ I 2 .2 . 14* I . 

• //. 313*. ’COSTS BT TE AR • . 28* I » 

♦//. 31 3*. ’TEAR’ .5*. ’PVCOST’.S*.’ ACTUAL’ .13*1 ./.3I3*.’ ’.5*. 

• ’ ’.5*. ’ ’.15* ».//. 50131 2* .15. II. *10. 2. I*. *10.2.1 5* >• / »• 

• /I 

215 CORN AT I 1I./.2I3*. ’PRESENT VALUE z’ • El 7 .2, 1 41 I. / .2 13* * • ANNUAL •» 

• •COST Z*,?I2.?*14XI •/. 2(4*. ’ACTUAL COSTS =’ • r l 2. 2, I 4* 1 . 

•//,?! 3*. ’COSTS NT TEAR ’.27*t. 

•//•3*.?l 2*.’TEAR’.5*.’PVC0ST’.4*.’ACTU*L’.l6*l./.3*.*4?*.’ ’.5* 

... ’.5*.’ ’.16X1 .//.SO 12(4*. 15. IX. c 10. 2.1 *.E 10. ?. I3*> •/» 

• ./l 

??U EORPATI IX.3I. ’PRESENT VALUE z’ . *12 .2. /• 3* » • ANNUAL COST z’» 
• r l?.2.//»3*, ’PRESENT VALUE COSTS NT TrAR’.//.S*. 

••TEAR’.IP*. ’COST’./.S*. • ’. 10*. ’ •♦//• 

• SOI 4*. IS. 2 A. -I 0.2.1 *.-10. ?. /I I 

222 FORMAT I IX. //. 20*. ’SURL E VEL COSTS FOR • • AS, 1 * , 6A4 . // I 
•»** ZORRI Tl 1 *. /. * ¥. » .......... rpo i, hut m to 




'.HCOST SOURCE LIST 


D*lf 0??B77 


II? 
I IT 


Oy>4S.lV.#,*<,/.TX.MSURUIr<,l5,)X.*IRCt = *.IS.// » 
END 


JPRT»S * . c *L V *o 


SHCOST SOURCE LIST 


OAfE OV2BT? 


PACE 


NT 


SH*C0ST(II.ML«I5 

t SUBROUTINE SAL V AG 

2 INC LUO i PARS 

5 C COP PU T C THE SALVAGE VALUE A C TER NVR 

A I C I IRCt.EO.O) GO TO 100 

S READ! B * IRC 1 *£RR -600 ) ISUS t COOF • T IT l£*C OST 

A TOTAL! NVR* 1 I =COST 1 1 1 / < I .>*01 'C I ••NVR 

T ACTUAL IRVR*I I =COSTI| I 

S TOTAL(NVK*?l=TOTAL (NVR»tl»AC*ACT 

? UR ITEI R • IP Cl • ERR = AOOI ISUBt COOE »T ITLE* C OST » 

10 * c LCOST. TOTAL .ACTUAL 

It I OU RETURN 

12 AOU UR I TE I At AO I I 

I) AO! FORNATISX. ’ERROR IN SALVAG’I 

IN RETURN 

IS ENO 


NPRTtS A.SBLNK 


w> 



116 


SMCOST SOURCE LIST 


oate 092§r» 


RAGE 


as 


SH*COSTII T.SRLNK 


7 


7 


SUBROUTINE SBLNK 
INCLUOE PARS 
C BLANKS OUT OR ?EROS 
CHARACTER** RINK 
OATA BLNK/AH / 

IMIJK.EO.O I GO TO B50 
DO 109 I - l • K I 
IUQ I SUB I I > =0 

00 ?0S 1 = 1. A 
700 T ITLEI llrBLNK 
JuO COOE=NLNK 

DO AGO 1=1 *HCST 
COST! 11=0.0 
ACOSTI llro.t 
BCOSM 1 1=0.0 

ccosn 11=0.0 

r LCOSTf 11=0.0 
APCOSTT 11=0.0 
B r COST! 11=0.0 
CKCOST 1 1 1=0.0 
O r COST! 1 1=0.0 
•GO OCOST I 11=0.0 
•SO 00 SD9 l=t.NTOT 
ACTUAL 111=0.0 
ACTUAL! 1 1=).9 
CCTUAL 1 11=0.0 
• TOTAL! I 1=0.0 
TOTAL! 11=0.0 
SUO ATOTAL! 11=0.0 
RETURN 
END 


APRT.S A.SKALE 



SMCOST SOURCE LIST 


OI(( 092*7* 


SH*C0STI1 ». SHALE 

1 

2 
J 

• 10 

9 

A 


SUBROUTINE SR ALE f A (AN IN • ANAI* M IB* ALNTtNUNI 
DIMENSION AI9BI 
00 l» Irl.NUR 

*111:111*1 I»-ANIN)/«MAI-ARIN> »*ALNT»*OAIO 

RE TURN 

ENO 


3PRT»S A. SOLA A* 


SMC OS f SOURCE LIST 


1>AIC 0T7IM 


PAGE 


90 


SM*C OST I I » .SOIMD 


I 

7 

5 

9 

9 

A 

» 

a 

9 

to 
1 1 
i? 

is 

19 

19 

1 * 

IT 

l« 

1 * 

?n 

?l 

?? 

II 

T9 

II 

IT 

TO 

T9 

50 

51 
ST 
SS 
59 
S9 
S* 
ST 

r SO 
59 

90 

91 
9T 
95 
99 
99 
90 
9T 
90 
99 
90 

9 : 

9T 

95 

99 

5 « 


INCLUDE PARS. LIST 
COUPON /SEC /I SECT 
COPPON/-LOG/I r LS 
COPPON /NELT/ PLATE 

COPPON/PAGE/NI tlPAGNOtLCNI •LNCNTiNANE 
CHARACTER NAPE* SO 
CMARRCTER** N1.N7.N5.N9 
I CONTINUE 

OE r I NE r HE BIIJD.H J. V.IONRI 
OEPINE PILE 9IT9»T5»9»I00RR11 
CALL SCL0CKINI.P?»N9.N*I 
REAUIS.IOI) NAPE 
101 PORPATI A SO I 
I JR: I 

C CALL II9SIN -OR INPUT 0- M9S STRUCTURE 
CALL WPS IN 

C CALL CSTOTN POR INPUT 0- COST OATA 
CALL CSTOTN 

|P« {PLOTS. NE. 01 CALL CALLIO 
C****************** 

CPPP 1 01 SC =1 INDICATES INFLATION 9E3INS AMEI THE -1RST 
C*»* TEAR OP THE ANALYSIS 101SC/=/ 1 INDICATES P1RST TEAR 
C*«* INFLATION OP COSTS 



JYOSCO 

mioisc .co.l) jtosc=-i 

C COPPUTE SUCEEOINS TEARS IN THE ANALTSIS 
DO 1C |r|,NTR 
10 ITRIII:ITRST*(I-II 
I CNIrLCN 
ISECTrS 

?0 CALL OIVVT 

I SEC T = { SECT* I 
LNCNTr 0 

|PI0I SC. f 0.-999. I 50 TO ISO 
C******p*p************* 

CPPP inscrl INDICATES OISCOUNT RATE IS REAL 
c:: ANO IN PL AT ION RATE RUST BE AODEO TO DISC 

C*PP El SE OISC IS REAL 
C***************** 

Cpppppppppppppppppppppp 

I P < IOSC .CO. II 0 ISC-OI SC* e LAT£ 

C COMPUTE THE PACTOR USEO IN CONVERSION 3 r PRESENT VALUE TO ANNUAL COST 
AC PACT r|D ISC* II .0«OISCI**NTRI/lll.e*OISCI**NVR-l » 

C CORPUTE THE APOPT I TED VALUE OP THE LOAN PQR NTRS 

I c l INROT .EO. II GO TP 90 
IRCI=ISI9 
IRCPr|SI9 
CALL AP0RT7 

iRcims 
ItCRrllA 
CALL ABORT? 

I JR =9 

C COPPUTE TMf INFLATED COSTS IP PLAIC I INFLAT ION FACTOR I NOf=U 

it in irr .n. ~.n tit «h 



4 


SMCOSl «l)»Cf 


C*ll N F lAT£ 

IKCICI 
CALI OPIATE 

CALL CST1T0 r 0A OUTPtJt O' COST OITA IN AEA0A9LC F 300 
|f 4 0AT0PT .«t. I I CALL CSTOTO 


I r CMC AST ANAL f SIS ONL T C ALL THAU 

ELSE CONTINUE NONA ALL T ST CALL I NS S3LCST * CONCS » 


I r ( INA5T . NC • I I 30 TO 109 


> JC- CO-NEOCtAL CNCAST DEDUCTS OUST SC C30»UTC0 
ri c f Si TO INC AST COSTS 


in ICON .NC.II 60 TO 90 
(>CI -0 
I ACT-0 
INC 9:9 
IACA: ICl* 

CALL OiAI»C 
IACA: IS I T 
CALL DCAINC 


C*«* INC Alt COSTS F 0A CNCAST ONLT AtiLTSIS 
Cmmm*m*m***m»*«u* 

99 IACI-IC? 

CALL CNCAGT 

iacisist 

CALL CNCAGT 
lACtsISI 


C«99 total acsults INTO AVAC 

CALL PVAC 
|AC|:|Ct 
CALL PVAC 
GOTO I PC 

C CALL SOL C ST AND CONCST -OA CONAUTA T 1 90 9 - C9STS r 9* 
C BOTH IHC SOL AA HVAC AND THC CONVENTIONAL HVAC 
100 IMISl .NT. 0 • CALL SOLCST 
in ICl .NC. OICALL CONCST 


C 99 9 COMPUTE l 1 C C C TCI C COSTS l c NCOOCSTCO 

C999999*999»»M**999 

IOw iniLTCT .CO. II CALL Ll'CTC 

C CALL ACSULT COA OUTPUT O* INC ACSULTS CALCULATCO 
CALL ACSULT 
CALL POSAVC 
GO TO 9<i 
I9A CONTINUE 

CALL SUNAIOI IPl TOP* 

STOP 

C DEBUG SUP I A ACC • TAACE 

C AT I 

r TAirr oa 


DAT! 090079 


PAGE 


# 



J 



SHCOST SOURCE LIST 


OR 1C 092 A 79 


SM*COST« II 

•SHCosr 


1 


CHARACTERS ORTA 

< 


CALL CSFRCQI •OASG.T 9. . •» 

3 


1=0 

9 

10 

RE9DI S« I90f CNO=930I ORTA 

9 


i=i*: 

6 


URITE(6t2D0» I tDATA 

7 

10b 

FORMAT IA80I 

R 

?0U 

e ORRAT (5X»IS«5*«*R0I 

9 


bR ITCI 9* 1001 DATA 

10 


SO TO IS 

11 

90b 

CALL CSFRIO 1 *8A0D SH*COST .BEG I R 

12 


STOR 

13 


CRO 


shcost source list 


0»TE 0V2R7T 


PAGE 


.SOLLST 

SUJROUUNE SOL CS T 
INCLUDE PARS. LIST 
DIMENSION ISTIKII 

C CAL l S SUBROUTINES POP SUNNING LOWER LEVEL OATA* TOTALING DA fA IN CERIAIN 

C RECO»OS. CONPUT IN « PRESENT VALUE ANO ANNUAL COST r ON RrP.NAINl'. TAxES'E TC 
CONTINUE 

C SUN LOUiR LEVEL 5ATa TO HIGHER LEVEL 
PFAOie • 1SI »ERR=600I 1ST 

IP|CISI*IS2*ISJ*ISA*IS5*IS6».EJ. fll GO *0 JO 


10 


IRCIrlSI 




11 


I RC 2r 1 S6 




1? 

C 

CALL SOLSHN 




1 J 

C 

TOTAL COSTS POP 

ACQUISITIONS. RL03 NOOS.tNO 

S»ACE OCCUPIED 

t« 

JO 

IPIIS? .EO. 0) 

GO 

TO 50 


15 


I BC l r I S2 




16 


CALL TOTALS 




IT 

so 

IPI ISJ .EO. 01 

SO 

TO 70 


in 


IRCIrlSJ 




1 V 


CALL TOTAf.S 




20 

70 

IPIIS* .CO. 01 

GO 

TO IIC 


21 


I»Clr|SA 




2? 


CALL TOTALS 




? 3 

c 

NET REP CONPUTES 

YEARLY ANO TOTAL C05TS PON 

RCPLACENENT ANO 

?* 

1 lb 

IP< IS5* IS6.C0 . 

01 

GO TO MO 


25 


IPCIr ISS 





IRCP=IS6 
CALL NiTHEP 

FNCRGr CONPUTES TEARLT ANO TOTAL COSTS PQB EACH FUEL TYPE 
> I r l I S T . E 0 . 01 SO TO ISO 
IPClrlST 
CALL ENERGY 

TA*CST CONPUTES TAT ANO OEOUCT I 3 NS PROPERTY INTEREST ETC 
t Ml IST»1SA»ISI?*IS1A*ISIS .EO. )l GO TO I TO 
IRClr IS9 
I RC2r I SB 
IRCSrISI? 

IRCRrfSI* 

IRCSrISIS 
CALL TATCST 

IP THIS HVAC IS POP CONNERC I Al USE AOOOED INCONE IS CONPU TCP 

DEPRECIATION IS ALSO CONPljTEO 


I 7l IPI ISir* IS1I*ISI6«ISI7 .EO. 
IRCtrlSIO 
INCZrlSM 
IRC Jr I SI 6 
IRCRrISIT 

IP (ICON.EO. I 1C ALL OEPINC 
lVb IPIISIJ .CO. 0) GO TO ?I0 
IRCIrlSI J 
CALL SAL VA G 

C CONFUTE TOTAL PV ANO AC 
710 IRCIrlSI 
CALL P VAC 
RETURN 

«.H;i U»1 I 


TO I VC 


SHCOST SOURCE LIS? 


D*rc 092R7 ? 


»*GC 


5 * 

57 

SR 


»9I c ORII H 5K i * ERR OR IN SOLCSTM 

RETURN 
ENO 


afRTtS R.SUNRIZ 



. 


SMCOST SOURCE LIST 


UAH 972B7Y 


• SUNK I 7 


SUBROUTINE SUNRl 7IIPL TOP ) 

COUPON /SEC /ISEC I 
COPPON/XC/XCNT 
INTEGER XCNT 
COPPON/LAST /PPICEL 
COUPON /NX* /NAPES 
CHARACTER**! NAPCS 
0 1 P ENS ION C TL c I 6 1 
00 B lrl,ISECT-E 

READ! ?• I.ERP = 60CI 1SECTI.VARY.PCT.G.FLATEI.0I5C1 

♦ . ONPPT.C STPSP.TINCOP.PT AX. AREA* SH VAC. CHV AC* CYL r 
•.PSHAC.PCHAC 

I- I Pom I-l .AO I .NE .Ot SO TO IB 
CALL P AGE S I R9 I 
URITEI6.I0M NAPES 
IFIIPLTOP.NE.il UR I TE I 6. 10?) AREA 
I-IIPLT0P.NE.2I URITET6.I031 DISCI 
IF| IPLTOP.NE .3) WRITEI6.I0A) FLATEl 
I-l IPLTOP.NE.AI URITET6.I05) ONPNT 
IFI IPLTOP ,NE .51 UR I T E ! 6 » .06 I PTAX 
I-« IPLT0P.NE.6I WRITE ! 6 • t 0 T I TINJOP 
WRITE! 6. 1051 CSTPSP 
IFIIPLTOP.EO.il URTTET6.109I 
in iPLiop.ro. ?i uPiTci6.no 
. m ipltop.eo.3i writet6.hu 

IM IPLTOP.EO.AI URITET6.il?! 

I*LI IPLT0P.C0.5I URITET6.113I 
1 C IIPLT0P.E0.61 WRITEI6.I1AI 
URf TE 16. 1151 

WRITE! 6. 1001 ISECT1 . VARV.PCT.G 
♦.SHVAC.CHVAC* PSN AC .PCHAC.CTL c 
CONTINUE 
RETURN 

UR ITCT6.60I) 

c OR PA T(5X. ’ERROR IN SUNRIZM 
RF TURN 

• ORPA TI T 6 * . •SUPPART* . //.T55 .A63.////I 

e 0 RP A T T / / . • SECT ».5X. *VARY PERCNT T OTAL *» 7X .» ACTUAL COST 

♦ PRESENT VAL COST • . 7X . »L I C E CYCLE COST S A V IASS • . 7 X . • L CYCLE r UEL 

♦ COST • ./ . * NO •. 1«X. •L0A0 , .5». 'LOAO SMV AC • . 6X » *CMV AC SM»AC». 

♦ 5X.»CHVAC PRESENT*. 5*. •ACTUAL ANNUAL PRESENT ACTUAL 

♦ ANNUAL *./. ?X. AC •-•». ?X »IH»-»I* 21 »?!•-• If 3* »M* -•»»!*» 

♦ M , -'l.?«.ll'-M.t»iH'-M.«.»(H»- , l.«I.TT , -MI 

FO RP A TI IX. T5 .?X,FR.| »?X » c 5.?. *t*.?X»F7 .?.?X»?F9.2*lf»? r ?.?. 
♦?X.5l r ».?«lXI.F».?| 


FORPAT ! T5*. 'COLLECTOR AREA = • . FA . ? . • G J/ Y R» I 

FORPATI T5A , •DISCOUNT RATE = *» r 6. ?.•*•! 

FORPAT I T5A. • INFLATION RATE = •»F6.?.*t , » 

FORNATT T5«.«D0UNPA YPENT - ••?A.2.*t*l 

FORPAT IT5A, 'PROPERTY TAX RATE = 

FORPATT T5A. 'INCOPE TAX RATE = ?••»•» 

FORPAT IT5*. ‘COST PER SO. PETER »*.F6.?I 

FORPATI TA6. ‘FOR THIS CASE, VARY IS THE COLECTOR AREA. 
FORPAT T TA6. 'FOP THIS CASE. VARY IS YHE DISCOUNT RATE. 


" J/YR» » 
t* » 


SHCOST SOURCE LIST 


SO 

112 

PORHOTl TOO » *POR 

S7 

119 

POROOT (TOO* ’FOR 

50 

119 

~OROOT< TOO* 'FOR 

59 


COD 


THIS COSE* TORT IS 
THIS COSE* TORT IS 

this cose* tort is 


THE OOHH»OTREHT. *•» 

THE RRORERTT TOT ROTE. IM 
THE IHC9NE TOO ROTE. «• I 


DOTE 09207* 


ORRT.S O.TOXCST 


SHCOST SOURCE LIST 


OAK 072877 


PA 51 


58 


SH«COST< I t 
! 

2 

3 

A 

5 

5 

7 

A 

7 

10 
1 1 
1* 
n 

i« 

15 

16 
17 

1 A 
17 
’0 
21 
2? 

23 

2 A 

25 

26 
27 
7 A 
27 

30 

31 

32 

33 
3A 

35 

36 

37 

3 A 
37 
*0 
A 1 
A? 

A3 

A A 

A5 
A 6 
• 7 
A A 
A 7 

50 

51 

52 

53 

5A 


TAYCST 

SUBROUTINE TAYCSI 
INCLUDE PARS 
COUPON /NFL T / PLATE 
CALL SAL NY 

1 F| IRC2.E0 .01 GO TO 10 
C COBPUTE 9 ROPER T f TAX AND DEDUCTIONS 

C CO ST I 1 THRU NTR 1 - ASSESSED VALUE 3 C MVAC IN TEAR J 

C COST 121 = PROPERTY TA* RATE 

REAOI 8 * IPC?»fPR =600 1 ISU9»C00E .T ITLE»COST. 

♦FLCOST 

1C IFIIRC2 .EO . 01 30 TO 150 

READ! A* IRCl t f RR=655 1 I SA . A CO OE » A T I T L F . AC OST • 

♦AFCOST 

I r I COST I 2 1 .ST. 1.0 .ANO. AC0STI21 .ST. 0.0 .AND. 

♦ACOST I 31 ,5T. 0.01 50 TO 50 
C UR I TE I 6. 300 1 

GO TO 150 
55 00 1)1 1=1, NTR 

IFIFimi .EO. C.G»ACTUALII»=C0STI2»*C0STI1 1 
I-TFLATE .NE. 0.01ACTUALT I I =COST T 2 I *f L C)S T l I I 
TO TALI 1 1 rACTIIAL Ill/ll. 0*0 1 SC 1»*I 
TOTAL! NYR* l l=TOTAL(NrR*ll*T0TALIII 
ATOTAll IlrACOST I31«T0TALII» 

AT)TAHNYR*t»=ATOTALINYR*l»*AT)TAL«II 
ACTUAL I IlrACOST I 3 I • AC TUA L 1 1 1 
ACTUAL 1 NYR* I 1 r A C T U AL I N YR* 1 I • ACT UAL I I I 
* ACTUAL INYR*1 1 TACTUAL INYR«1 1»BC TIJAL I 1 1 
luO CONTINUE 

TO TALI NYR, 21 rTOTAL INYR«1 1 »AC c ACT 
AT0TALINYR»2l=AT0TALINYR*ll«AC c ACT 
UR ITf I A* IPC I ,E RR=600I ISA.ACOOEtATITLT. 

♦ ACOST. ACCOST , A TOTAL .ACTUAL 
WRITE I A* IPC 2. ERR = 600 1 I SUB . CODE • T ! T LE . 

♦COST.F- COST .TOTAL. ACTUAL 
150 CALL SBLNV 

I F( IRC3.E0. 01 30 TO 175 
C COBPUTE INSURANCE COSTS 

RE AO IB* IRC3.ERRT6N0I ISU5.C00E.1 ITLE.COST* 

♦FLCOST 

C COSTI 1 1 rANNUAL PRENIURS C0SH2I rANNUAL 0ANA3E C OS T » 3 I = RE I NR URSE RE N TS 
TOTAL I NYR *21 =C0ST II » *COS 7 1 2 1 -C 3S 7 I 3 I 
00 16) J= l .NYR 
ACTUAL IJlrTOTAL (NYR, 21 

ACTUALI NYR, t 1: ACTUAL I N YR* 1 I .ACTUALIJI 
16b CONTINUE 

TO TALI NYR* | IrTOTAL INYR*7 1 /AC- ACT 
WRITE I A* IPC 3. ERR -600 I ISDN. COOE . T I TLE . C OST . 

♦FLCOST. TOTAL .ACTUAL 
CALL SNLNK 

170 I f| I»CA* IRC5.E 0. 51 30 TO *50 

REAOI 0 * IRC A , ERR =600 I I SUB • CO OE * T I T LE • C OST , 

♦FLCOST 

PTAOIB* IRCS.EPR =6001 ISA.ACOOE . AT I TLE » ACOST. 

♦AFCOST 


SMC OST SOURCE LIST 


O* ft 092079 


0 

II 

2 


C UR ITF(fctJlO) 

GO TO 250 

C COST I 1 1 THRU COST IR TR I ^OUTSTANDING PORT 6RGE 
C COST 121= NRRRFT RATE 

C COST I 31 = INCOME TAX RATE 

199 DO 213 1=1 tNVR 

ACTUAL I ll=COST I II*COST INTR*t t*C0ST |NVM«2> 

ACTUAL I N TR* I I =AC TUAL INTR*I • • ACTUAL! I » 

TOTAL I I>=ACTUAL II » / 1 1 .0 *D ISC I •• I 
BCTUALI I l=ACOST III 
A TOTAL 1 1 IrBCTUAL tll/lt.O*OISCt**I 
BCTUALI NTR» 1 I SBC TUAL I RTR* I I *SC TU AH I • 

ATOT ALIN TR*II=A TOTAL INTR *1 1 «AT OT AL III 

200 TOTAL I NTR* 1 1 =TOT AL I N TR* I I • T OT AL 1 1 1 
ATOTAL IRTR*2I =ATOTAL INTR«I l*AC^ACT 
T0TALINTR*2I=T0TAL INTR*1 »*AC- ACT 

WRITE! A * IRC A »ERR = APO) 1 SUB . CODE » I ITLE . C OST • 

♦ c LCOST» TOTAL • ACTUAL 

URITEIB* IRC9»ERR=AOO) IS A t ACOOE • AT ITLE • ACOST * 

♦ACCOST* ATOTAL tBCTUAL 
250 RETURN 
AlO WRITEU.A9II 

AOI FORMAT ! *X» ’ERROR IN TAXCST*! 

RE TURN 

C 300 FORMA T I 1 HI • 3X ♦ • THE VALUE OF THE RRORERTT TAX RATE OR THE INCOME** 

C */»3X* • T AX RATE C 0R RRORERTT TAX CALCULATI09S WAS EERO. IME**/*3K* 

C **CALC'JLAT IONS FOR RRORERTT TAX A AD RMOR TAX DEDUCTIONS WERE NOT**/* 
C *3X.*RER = 0RNE0**/I 

C 310 FORBATI IMI.3X. *THE VALUE 0* THE INCOME TAX MATE OR THE MARKET**/* 

C *3X* • INTEREST RATE WAS EERO. CALCULATIONS -JR 0EJUCT10NS 0N*./.3X* 

C •* THE LOAN INTEREST WERE NOT RERFORREO. • ./> 

END 


9RRT.S A. TOTALS 


ShCOST SOURCE LIST 


SM «C 0 S T I I 1 .TO TAl S 

t 


.IE. 91 63 T 3 2) 


SUBROUTINE TOTALS 
INCIUGI PARS 

TOTALS ALL COST ACO 9L03.AN0 SPACE VALUE 33ES T3 TOTALS 
CONT TRUE 

« - C IRC* . EO .9 1 30 TO 100 

CALL <BLNK 

MT|r» 

KAT2rfRCI 

RE»0(B* IRC l .ERR=639I TSU9 ,COOE » T I TLE . C3ST • 

♦ Cl COST 

I r I I SU9I 2 1 .51. n . AND. COST ft > .LE.9I 63 T3 2) 

00 10 J=1.NTR 

j TOTAL ( NTR»1 1= TO TAl INTR.fl .COST Til 

ACTUAL I N TR ♦ 1 1 -TOT AL IN*RM ) 

SO TO 93 

SUN COSTS COR EACH LEVEL 

20 DO A3 1 = 2. Kt 

I C( I SUB I II .IE .01 SOTO AO 
ATOTALIN f R*1 1=3.0 
A A T | = 1 ? 

K A T2= I SUB t I I 

READ! BMSU8 ll).ERR=600» ISA t AC OOE . AT I TLE . 

•ACOST. ACCOST 
00 TO Jrl.NTR 

TO A TO TALI NTR.l IrATOTAl lATR.t 1 ♦ACOST I Jl 

BCTt'Al INTR*1I=AT0TALINTR«|I 
ATOTALf ATR»3I=AT0TAL f NTR.l I • OUA “ A T 
AT0TAIIATR«?I=AT0TAL(NTR*I MACCACT*OUNPNT 
A A T 1 = TS 
A A T ?= I SUB I 1» 

URITEI AMSIINIII.ERR = A99I ISA.AC30E.AT I TLE. 

♦ACOST. ACCOST. ATOf At .ACTUAL 
TO r AHATR»tlrTO?AL(NTR*ll»ATOIAHATR»ll 
ACTUAL TNTR. 1 1 = AC THAI INTR.ll.9CTUALINTR.il 

•0 CONTINUE 

90 TOTAL INTR. TI=TOTAL INTR . I |*OVNP AT 

TO TALI ATR. 21 rTOTAL I N TR. 1 I . AC ~ AC T » OU APRT 
UR IT El B» IRC I .ERR = 900) ISUN.C30E.TITLE.C3ST. 

• r L COST. TOTAL. ACTUAL 

0 RETURN 

) URITCIA.AOII AATI.AAT2 

1 CORNAT 19*. ‘ERROR IN TOT ALS * *2 1 10 1 

RE TURN 

OEBUG TRACE. SUBTRACE. INIT 
AT 1 

TRACE ON 
ENO 


•JPRT.S A. TABLE 


DA ft 072BT? 


RASE 


60 



129 


SHCOST SOURCE LIST 


0((C 077A77 


PASL 


*1 


SHaCOSMIt. TABLE 
I 
7 
3 
B 

5 

6 
7 
B 
7 

10 

II 

1? 

13 

IB 

15 

16 
17 
IB 
17 

70 

71 
7? 

73 

1% 

75 

76 

77 
?R 
77 

30 

31 
37 
33 
3B 

35 

36 

37 
3R 
37 
BO 
B I 
B7 
B3 
BB 
B5 
B6 
B7 
BB 
B7 

50 

51 
57 
53 
5B 


SUBROUT 1NE TABLE 1 1 * J.P » .F B .PC . PD. PE . PF • BARE .L I 
CORNON/C ITTS/NARESI1511 
INTEGER AV 17*1511 

INTEGER 3X1 7.1 51 I. CXI 7.1511 .0X17.1511 *EX 17.151 l»?X17.t51l 
REAL L0I151I.L 

DIMENSION 617*1511. 31 *.l 51 I .CI7. I 511* 

♦ 017. 1511. EI7*lSll.r|?. 151) 

CHARACTERS! N ANES.NANE 

OATA INANESII). 1=1.101/ 

♦ •A3ILENE. TEXAS 

♦ • • ’ALBANY. NEW TOR* 

♦ * » • BL B UOUEROUE . NEW NFXICO 
♦•••AMARILLO. TEXAS 
••••ABES. IOWA 
.•.•ANHERST. NASSACMSETTS 
.•••ANNAPOLIS. NARTLANO 
.•••APALACHICOLA. FLORIDA 

♦ • . • ASH* ILl C . NORTH CAROLINA 
••••ASTORIA. OREGON 

*• / 


OATA 1NANES 111.1=1 1.701/ 

« • ATLANTA • GEORGIA 

••••ATLANTIC C1TT. NEW JERSEY 
♦•••BIG SPINSS. TEXAS 
••••BILLINGS. MONTANA 
.•••51N3HANPT0N. NEW TOR* 
••••SIRNINGHAN. AL ARANA 
♦•••BISBANX . NORTH OAKOTA 
••••BLUE HILL. RASSACHSETTS 
••••BOISE. IDAHO 
••••BOSTON. RASSACHSETTS 
• • / 

OATA INANFS II). 1=71 .301/ 

• •BOULOER. COLORAOO 
. •••BROWNSVILLE. TEXAS 
••••CAP- HATTERAS. NORTH CAROLINA 
••••CAR1LB0U. MAINE 
••••CHARLESTON. SOUTH CAROLINA 
••••CHAROLLE* NORTH CAROLINA 
••••CHATTANOOGA. TENNESSEE 
••••CHICAGO. ILLINOIS 
••••CLEBVELANO* OHIO 
••••COLUMBIA. MISSOURI 



• • f 


OATA 1 HARE S 1 1 1 • I =3 1 .601/ 

• •COLURHIIS. OHIO 
••••CORPUS CHR1STI. TEXAS 
••••CORVALLIS. OREGON 

• •••OAILAS. TEXAS 
••••OAVIS* CALIFORNIA 
••••OATTON* OHIO 
••••OENVEH* COLORADO 
••••OES MOINES. IOWA 
••••OETROIT. MICHIGAN 




SMCOST SOU»CC List 


w 

c 


56 

57 

58 
57 
60 
61 
6 ? 
65 
6 * 

65 

66 
67 
66 
67 

70 

71 
7 ? 
71 
7 « 

75 

76 

77 

78 
77 
60 
61 
6 ? 
65 
86 

65 
86 
67 

66 
67 

70 

71 
7 ? 

75 

76 

75 

76 

77 

78 
77 

100 
1<JI 
1 06 
135 
I 0« 

105 

106 
107 
ICS 
107 
I 10 
• • • 


♦ • / 

0* t * CNAHESC I I . 1 = 61 ,5j» / 

• 'OULIITH. MINNESOTA 
•••'EAST LANSING* MICHIGAN 
•'.'Cl P* 50 • Kill 
••••Ely. Nevada 
•'.•fapGU, north (J AK 0 T A 
••••FORT SMITH. ARKANSAS 
••.•FORT WAYNE. INDIANA 
••••FORT WORTH. TEXAS 

• • . • FR[ SNO 1 CALIFORNIA 
••••3AINSVILLE. FLORIDA 

• * / 

0*T A INAMESIII. 1=51.601/ 

« *616 5 SOU. MONTANA 

••••GRANO JUNCTION. COLORADO 

• • . • SR 6 NO 1667 . COLORADO 
*'.'3RF6T f«LLS. MONTANA 
••••S7LEN 867. UI5C0N5IN 

*• .‘GREENSBORO. NORTH CAROLINA 

• • . »GRICNV ILLF-SPART6N8URS. NORTH CAROLINA 

• •.•SRI-FIN, GEORGIA 

•• . 'HARTFORD. CONNECTICUT 
* • . * H0U5 TON . TEXAS 

• ' / 

DATA (NAMES! I I • I=6| .701 / 

• ' inn IANAP01 IS. INDIANA 
•• . • IN708EPN , CALIFORNIA 

• • . • I T H IC A . NEW 70R6 
••.•JACKSON, NISSISSIPPI 
••• 'JACKSONVILLE. FtORIOA 
••••KANSAS CIT7. MISSOURI 
••••KEY WEST, FLORIDA 

* ' , *L •* t CHARI FS. LOUISIANA 
••••LANDER. UT0M1N5 
• ' » • L A NS I N3 . MICHIGAN 

• • / 

0*TA ( NAMES' l I . I = 71 >601 ' 

• *1 »P AN IE . WEST VIRGINIA 
•'.•LAS VEGAS. NEVADA 
♦'.•lENONT ILLINOIS 

•• .*LF VIN3T0N, KENTUCKY 
••••LINCOLN, NEBRASKA 
♦•••LITTLE ROCK. ARKANSAS 
••••LOS ANGELES, CALIFORNIA 

• ♦.•LOIIISVILLr. KENTUCKY 
•••'LYNN. NASSACHSETTS 
••••NACON. GEORGIA 

• • / 

DATA CNANESI 1 1 • 1 = 61 .711 / 

♦ •NA01SON. WISCONSIN 
••••NANHATTAN. KANSAS 

• • • •NCC-FORO. OREGON 

* • . • NE ■* H IS. TENNESSEE 
•'.'NIAN1, FLORIDA 


SMCOST SOURCE LIS? 


•.•NILUAUREE. WISCONSIN 
•••RINN.-ST. PAUL • NINNISOTA 

•••nr. ue*the» . west Virginia 
•••NASHVILLE. TENNESSEE 
« / 

OtU INANE S II > .IrV| • IOCI/ 
•NAltCR. MSSICHSCITS 
•••«rw ORl CANS* LOUISIANA 
•••NEWPORT. RHODE ISLAND 
•••NEW f OR* t NEW TOR* 

• .*NOR ; OLR • VIRGINIA 
•.•NORTH ONAHAt NENRASRA 
•.•OAR RIDGE . TENNESSEE 
•••ORLANONA CITT. ORLAHONA 
•••PA3E. OREGON 
• . •PARRERSNUP G» WrST VIRGINIA 
•/ 

OAT* INANESm.Irl01.H0l/ 
•PASADENA. CALIFORNIA 
•••PEPSICOLA. FLORIOA 
•••PEORIA. ILLINOIS 
•••PHOENIR. ARIZONA 
•••PHILADELPHIA. PENNST ILV A HI A 
•••PIIT5TWGH, PENNSYLVANIA 
•••PORTELLO. IDAHO 
•••PORT AUTHOR. TERRS 
•••PORTLANO. PAINE 
•••PORTLAND. OREGON 
•/ 

OATA INANESm.lrlll.IPOT/ 
•PROSSER. WEST VIRGINIA 
•••PUEBLO. COLOPAOO 
• . • PULL NAN • WEST VIRGINIA 
• . •PUF-IN-NAT. OHIO 
*. •RALEIGH. NORTH CAROLINA 
•••RAECISH-OURNAN. NORTH CAROLINA 
•••RAPID CITT. SOUTH HARO. A 
•••RENO. NEVADA 
•••RICHLAND. WEST VIRGINIA 
•••RICHPOND. VIRGINIA 
•/ 

OATA INANESm.lrlPI.l3DT/ 
•RIVERSIDE. CALIFORNIA 
• •• ROC NC HESTER . NEW TORR 
•••SACRANfNTO. CALIFORNIA 
•••ST. CLOUD. PINNISOTA 
•••ST. LOUIS. NISSOUR! 

•••SALT LARE CITT. UTAH 
•••SAN ANTONIO. TERRS 
•••SAN 0 IE SO. CALIFORNIA 
•••SAN r RANC I SCO • CALIFORNIA 
•••SAN JOSE. CALIFORNIA 
•/ 

OAT* INANESIII.lrl3l.IA0T/ 
•SANTA NARIA. CALIFORNIA 




DATE 0N2A79 


PAGE 


A3 





SMCOST SOU* Cl LIST 



iair on*;? 


*OSf 


69 


* 


m 


'.MCOST 90UMCC tisv 


•-.990*. -09 
*•.!«•)••» 
ft-. I *•*» -09 

OftVft IIII. 

I-. 1990. -0# 

i-.um.-tr 

oat* oiiii 

• IMI.-M 
V-.(?M«-II 
ft-.91ftV.-09 

I-.I0**.-19 
Jtit.-W 
l-.9ftftf.-9? 
•-.9937.-0* 
f-« I V9ft»-t9 
ft-. l?*Ti-IV 
OftVft ft CC I • I 
•-.l»01*-Cft 


-. 000 ft 
-.Iflft 
-.09 TO 

-.mu 

-.Iftftf 
-.9011 
- . 1 71 9 
-.Iftftf 
-.1011 
-.Oftftl 
I.OIIO 
-.Ilf? 
-. 0 | 0 » 

3 VII 
ffft 
111 
III 

-.111* 

-. 0*00 

-.Ail 

-.n*» 

I.0IV9 
-.1*00 
-.Ifftft 
-.0091 
-.00*1 
-.19 00 
-.Iftft* 
-.101* 
-.19ft! 
-.110? 
-.•■•ft 
-.ftfftft 

• •cm 

-. 0 * 0 * 


-09.-.|ft*9.-09. 
-•*•-. Ift**.-10. 
-00*-.10ft!*-09* 
-OO.-.ttftO.-lO* 
-oo.-.«fft*.-eo* 
-09»-.»*ll.-10» 
- 09 .-. 999 7 . - 00 * 
-•0.-. ion. -10. 
-00.- .1 -00. 
-OO.-.lftlf.-tO* 


.100*. -00. 
.0019.-19. 
.1010.-00. 
•lit*. -to. 

•Oftfl.-OO. 

. 1 ** 1 .-to. 
.01*0.-00. 
•tftftl.-to. 

•Oftfft.-OO. 

.11*0.-90. 


-l> 9 ^ J » * 9 . - 90 .-. I ofjjto. 

-OO.^fofftO. -00 • - .0090* -00. 


-09.-.11VT.-I0. 

-oo.-.**fti.-0!. 

-0*.-.0T«9.-!0. 
- 00 .-. 101 I.- 00 . 
-OO.-.lftftft.-ftO* 
-OO.-.tftftft.-IO. 
-10. -.9109. -tO. 

-o».-.oo*o.-ro. 

11.1:111.1911/ 
-00. -.9001* -00. 
-00. -,191ft. -10. 
-OO.-.lftlft.-OO. 
-00. -.1001* -90. 
-00* -.19* 1.-00. 
-99.-.«*fti.-19. 
-00.-.l*ftl.-00. 
-10. -.1*09. -tO. 
-00. -.191 *.-00. 
-to. -.91 V*. -10. 
-!»*/ 

11.1:1.911/ 

-09. •.WIT. -09. 


•ooao.-oo. 

•Iftftf.-tO. 
.90*0.-00. 
. Ift*ft .-to • 
•1*15.-00. 
.01I9.-00* 
•I0*«.-00. 
.tft»M-lt. 

.mM-oo. 

• I9W.-00. 

. 9011. -to. 

.I01*.-00. 

>1*3*. -to. 

•5191.-00. 

.1111.-10. 

.1109.-00. 

•Iftftf.-tO. 

.ftlftl.-OO. 

•Iftto.-to. 


.1007. -00. 
.1 *9*. -tO. 
•lift*. -00. 
•lOftt.-tO. 
•no*. -oo. 
•Iftftf.-tO. 
•llll.-OO. 
,190ft. -10. 
.1119. -00. 
.1*99.-00/ 

•Illft.-tO. 
•noo.-oo. 
.Iftft*. -to. 
.100*. -09. 
.1**0. -to. 
■IftOT. -09. 
•OftOl.-tO. 
.1910. -09. 
.Iftftf.-tO. 
•IftlO. -09 / 

•ft ffft. -09. 

.nw.-to. 

.IftOft. -00. 
.Olftft.-to. 
•IIOT.-OO. 
.!•!?. - 10 . 
.1*00. -OO. 
.19*9.-00. 
.1*91. -00. 
•Ollft.-tO. 


•• 3 * 30 . -Oft. -.Ifftt. - 0 *. 


T..090*,- 

l*.l«lt.- 
•-.•0*9.- 
9-. 99!!.- 
ft-. »!?!.- 
7-. 10*9.- 
0”. V1I0.- 
*-.*117.- 
Oftlft tCI 
ft-. Tit*. - 

0- .ftlOft.- 
t-.lftOft.- 
0-. *01*.- 

1- .ft 79ft.- 
*-.199*.- 
9-.I17N.- 
ft*. 307*.- 
7-. 1011.- 
0-. 109*.- 


>. Oftftl 

• ft J 7 7 

• »M» 

• I 5 *1 
oilM 

• 1115 

• 5 C 75 

•cm 

• Cl 5 7 

•law 

• 5155 

• A 75 a 

• ^ 75 7 
•I 01 I i 

• 5 5 7® 

• 50 H 
• *a 5 i ' 

• 7755 


O9.-.ftl*9.-09.« 

9ft.-.ll91.-tft.- 

Oft.-.l*0*.-0ft.- 

Of.-.lllf.-lft*- 

39. -. 01*1.-19. - 
Oft.-. **0*. -Oft. • 
09»-.00ftl .-••»- 
1.1=91.1001/ 
Oft.-.OftlO.-tft*- 
09. •.1*91.-09. - 

09. -.9070. -Oft.* 
99. -.7700. -1ft.- 

fft.-.ffftft.-lft.- 
09. •• 1ft 17. -09.- 
19.- •* V VI .-lf.- 
Ol.-.ITIiT.-rftf.- 


ilftlft.-Oft. 

1 99*. -Oft »-« 
,1790.-0*.-, 
9199.-19.-. 
,IV9*.-Cft.-, 
10*9. -t*.-. 
,1*0*. -09. • , 
1909. -»*.*. 

lift*. -1ft.-. 
.0*77. -Oft.-, 
II«*.-t«.-, 
Oftftl. -Of... 
Olftl.-tT.-. 
ItlV.-O*.-. 
*11*. -19.-. 
Olftft.-Oft*-. 
•*01.-17.-. 
7*9*. -09.-. 


.07*1.-09. 
.Illft.-Oft* 
•ftlOft.-O*. 
.1*0*. -19. 
.0977.-0*. 
> ft* 79. -19. 
>107*. -09. 
«*•**. -19/ 

> 11 * 1 .- 19 . 
.37«ft. -0*. 
>Oft| «• -Oft . 
. 13 * 1 .- 09 . 
•OftOf.-lft. 
>IO*I.-Oft. 
•ftftOl.-lft. 
. 090 ft. -Oft. 
,99 *• • - 19 . 
.I*l*.-«)ft/ 




MIC 0*001* 9O0C Oft 


C 



•© 


SHCOST SOURCE LIST 


03 

on 


336 

9*. 9990.- 

3 37 

*-. 7393.- 

338 

S-.S809,- 

3 39 

0 -. 2577.- 

390 

I-.1311.- 

39 1 

2-. 2000.- 

392 

3*. 9930.- 

393 

9*. 1295.- 

399 

5-. 1570.- 

395 

6* . 1005.- 

39 6 

06TA Cl 1 

397 

0 — . 39 79.- 

390 

1-.92JT.- 

399 

2*. 1300.- 

359 

3*. 8173.- 

351 

9-. 9357.- 

352 

5-. 5013.- 

353 

0-. 1503.- 

359 

T-.9979.- 

355 

0-.9IO9.- 

350 

9-. 0006.- 

357 

OATA ICI 

350 

A-.3096.- 

359 

B-.5202.- 

360 

C-.3150.- 

361 

0 -. 301?.- 

362 

1 * . 1 6 95 . - 

363 

2-. 0030.- 

369 

3-. 1195.- 

365 

9-. 9219.- 

366 

5* . 39 3 B. - 

367 

0-. 7795.- 

360 

OATA ICI 

309 

7* . 29 AC . - 

370 

8-. 1835.- 

371 

9*. 5950.- 

372 

A-.1597.- 

373 

B-. 1170.- 

379 

1-.9113.- 

375 

?-. 5100.- 

376 

3*. 0812.- 

377 

9— .9697.- 

370 

5-. M 30. - 

379 

6-. 1199.- 

303 

OATA 191 

30 1 

♦-.2103,- 

382 

l-.l 366»- 

303 

2-. 1193.- 

300 

3-. 1 153.- 

38 5 

9-. 1007.- 

306 

5-. 1192. - 

307 

6-. 22 00 « - 

308 

7-. 2579.- 

309 

0-. 1925.- 

393 

9-. 7033.- 


35, -.2033 

-39 

-.3995 

-35 

05. -.2662 

-C5 

-.3329 

-09 

35.-.22J3 

-05 

-.1372 

-39 

09.- .1910 

-09 

*.1078 

-05 

39. -.9073 

-35 

*.3339 

-34 

09. -.71C0 

-09 

-.9571 

-05 

39. -.2125 

-39 

-.»355 

-39 

09.-. 1050 

-09 

-.1096 

-09 

39. -.9709 

-35 

-.1310 

-09 

09, -.6363 

-05 

-.3073 

-09 

,1511. C«ft. 1511. ICI2 

II. 

09. -.1067 

.-09 

*.1677 

-05 

35. *.7397 

.-39 

-.1055 

-19 

09, -.1586 

. -P9 

-.7790 

— C9 

05.-. M68 

.-39 

-.1133 

-39 

05. -.3371 

.-09 

-.1099 

-03 

09. -.1220 

.-39 

-.7000 

-39 

09.* .1920 

.-09 

-.7009 

-09 

35. *.2533 

.-35 

-.1269 

-3* 

05.* .1150 

.-09 

-.1009 

-09 

35.*. 7699 

.-36 

-.1392 

-39 

2. n .CX 12 

.n. 

=50.99 

/ 

99. -.1 769 

.-09 

-.1922 

-39 

C0.-.1321 

. -09 

-.1980 

-09 

39, *.1313 

• -39 

♦.3359 

-35 

09. -.1213 

,-09 

-.1211 

-03 

35.-. 3399 

.-39 

-.6530 

-35 

05.- .2999 

» -05 

-.1366 

-09 

39.-. 6351 

.-05 

-.1023 

-09 

09,-. 7205 

.-05 

-.9001 

-05 

39. -.1975 

.-39 

-.1739 

-39 

05.-. 2321 

.-05 

*.6036 

-C5 

2.I1.CX12 

.11. 

1=139.1511/ 

09. -.1010 

.-09 

.-.9102 

- C 9 

39, -.8229 

.-05 

.-.1999 

-09 

09,- .0086 

.-05 

.-.9517 

-05 

3*. -.5223 

.-35 

.-.2190 

-39 

09»- .3000 

,-09 

.-.3020 

-05 

35. -.2287 

.-39 

.-.3363 

-39 

09. -.9302 

.-00 

.-.*932 

-09 

3*. *.0560 

.-05 

.-.1913 

-09 

06,* .1011 

.-09 

V *.2095 

-09 

39. -.2523 

,-09 

•-.5703 

-35 

C9.-.6099 

.-09/ 


1 . I 1 .0X1 1 

. II. 

1=1 .531 


OJ.-.2707 

.-09 

.-.5999 

-09 

3*.-. 353* 

.-09 

.-.5037 

-03 

C3»- .3 >39 

.-09 

.-.2902 

-03 

39.-. 1009 

.-09 

•-.1590 

-39 

09, -.5329 

.-03 

.-.2173 

-03 

33. -.7070 

.-(39 

.-.2323 

-39 

09. -.9637 

.-03 

.-.9900 

- C 9 

39.*. 161? 

.-09 

»-.l 9*0 

-39 

09.- .1 329 

.-09 

.-.3385 

- 03 

39. -.2193 

.-09 

.-.?52» 

-03 


-.1293. -09, -.2526. -05. 

• .3 955. -35.-. MOT. -09, 
- .230 7. -0 5. *.9395* ”06 . 
-.1 TIT. - 39 *-. 1931 .- 33 . 
-.21 76 . - 09 . -. 3513 * - 0 *. 
-.1799. -35. *.3069. -3 9. 
-.007 9. -05. —.7377. -05. 
-.251 6* -39 »-.13 95 .-09. 

• •3C30.-O6.-.2OO2. -09 / 
*12.11 .1=1 .991/ 

• .9273.-C5. -.2939. -09. 
-.2252. -99. -.1501. -39. 
-.2521. -09. -.3 509. -09. 
-.7230. -35. -.1921. -3*. 
-.22 77. -09. -.1051. -09. 
-.933 7. -35. *.3363. -39. 
• .9250. —09. *.l 115. -09. 
-.2392. -35. *.1933. -39. 
••1037.-C5.-.29O9. -09. 
-.1170.-39 *-.2235. -09/ 

-.323 1.-39. -.309 7. -39. 
-.11 6 3. -09. -.2 1 69. -09. 
*.2937* -39 .-.2322. -35. 
-.3992. -09. -.2032* -09. 
-.90 29. -35. -.2352. -39. 
*.1516. -09. *.291 7. -09. 
♦.17 13. -35. *.2799. -05. 
-.99 12* -05. -.223 7. -09. 
-.354V.-39.-.I935.-1*. 
-.7570. -05. -.0052. -05/ 

♦•5309.-O0.-.37CO. -09. 
-.5533. -39 *-.3399* -09. 
-.1255. -09, -.0055. -07. 
-.33 9*. -39. *.3932. -3 9. 
-.3239. -09 »- .7091 , -05. 
-.09 75. -39 *-.1233. -33. 

• .5639.-05. *. I 939. -09. 
-.21 30. -39. *.1692. -39. 
-. 121 0 .- 0 *. *. 0175 . - 09 . 
-.0003. -35. -.1330. -39. 


•-.566 1,-09. -.1060. -09. 
•-.07 39. -39. -.9 79 7. -39. 
»-.mc.-09.-.i92n, -09. 
.-,5291. -09. -.17 93. -3 9. 

.-,1325. -09. -.2 900. -03. 

• -.I 765. -39 .-.3 739.-39. 

• -.7 1 1 7. -C 3. -.2501. -03. 
.-.I 791. -39. -.99 05. -39. 
»♦. I 669 .-09 .-.10 70. -09. 
.-.2056. -33. -.392 7. -33/ 



DATE 097979 


RAGE 


67 



136 


SHCOST SOURCE LIST 


o«te o?2ar? 


p«ee 


#§ 


72 

6-. 1633,-09,- .9007 

-03. -.1668 

73 

9-. 6893, -39, -.1216 

-93. -.179? 

79 

3C 

0-. 2271, -09. -.7153 

• . lit >.-11.6 

-03. -.1025 
-9 2, -.577? 

76 

2* . 1201, -09, -.3357 

-03. -.1792 

77 

3-. 8581, -99. ,.1730 

-07. -.3699 

78 

9-. 1799, -09, -.3213 

-09. -.5986 

7? 

5-. 2992, -93. -.1711 

-09. -.1133 

00 

6-. 2191. -09,-. 3375 

-03. -.1736 

at 

7-. 2273. -99. -.3989 

-99. -.7297 

02 

0679 1011,11,0X11 

11,1=101.1 

93 

8-. 8937. -99, -.5379 

-03. -.2236 

09 

?-. 2791, -09. -.3713 

-09, -.9721 

05 

•-.6339. -99,-. 6087 

-05. -.9260 

06 

B-. 8777. -09. -.1577 

-09. -.297? 

07 

I-. 291 1.-03,-. 168? 

-99. -.2379 

08 

2-. 9371. -09. -.5670 

-03. *.266? 

9? 

3*. 3572,-03.-. 3383 

-03. -.2985 

10 

9-. 2120. -03. -.3563 

-09. -.9329 

11 

5-. 1566. -99. -.1397 

-09. -.3232 

12 

6-. 7821. -03, -.6903 

-09. -.9280 

13 

0676 bit, 1511. DX< 

.1511,1012 

19 

7-. 1033. -02, -.581? 

-03. -.3632 

15 

1-. 9777. -99, -.2753 

-09,-. 7539 

16 

2-. 8222,-09, - .2700 

-03,-. 1197 

17 

3-. 3033. -99. -.3237 

-03. -.9728 

18 

9—. 9022, -09,-. 8 699 

-09. -.2082 

17 

5-. 7688. -93, -.3919 

-03. -.1867 

20 

6-. 7776. -09. -.9560 

-09. -.2551 

21 

7-. 5199,-93. -.6979 

-99 ,-.6683 

22 

8-. 1509. -03. -.2771 

-09. -.2770 

23 

?-. 2727. -09. -.1777 

-03. -.517? 

29 

0976 1012,11,0812 

11,1=50.97 

25 

*-. 1585. -92. -.5793 

-09. -.131? 

26 

B-. 2731. -09. -.1771 

-03.-. 3026 

27 

0-. 1(96. -02. -.9820 

-09. -.1657 

28 

1-. 19r5,-02.-.?396 

-09. •. 1165 

2? 

?-. 3167. -99, -.3937 

-09. -.8711 

30 

3-. 8058. -09. -.2107 

-03. -.2531 

31 

9-. 6 378. -9 3, -.389 8 

-09,-. 7298 

32 

5*. 8851.- 02 »- .6907 

-03. -.3790 

33 

6-. 1316. -93. -.9989 

-09. -.8715 

39 

7-. 2069, -03. -.6621 

-03,-. 119? 

35 

0976 1912. It. 0812 

11.1=110.1 

36 

B-. 5360. -09. -.6373 

-03. -.1317 

37 

?-. 7971. -09,-. 7026 

-09, -.7767 

38 

6-. 9615, -09, -.1210 

-03, -.1097 

3? 

B-. 2159, -13. -.2192 

-03. -.6713 

90 

0-. 1971, -03, -.7571 

-03,-. 3537 

91 

1-. 7817. -09,-. 1075 

-03. -.1926 

92 

2-. 5832. -03.* .2590 

-03, -.8316 

93 

3-. 5538. -09. -.5962 

-03. -.1157 

99 

9-. 2175. -03. -.2713 

-09. -.2565 

95 

5-. 7919. -99. -.2075 

-92. -.1 75? 

96 

6-. 1902,-03,- .3288 

-02/ 

97 

n,T • f - 1 1 . 7 » .r t 

f 1 . f-l .691 


-05 
OJ 
-05 
-93 
-03 
-93 
-03 
-93 
-03 
-93 
50 ) / 
-93 
-03 

-93 
-03 
-91 
-03 
-39 
-09 
-93 
-09 
lit 
- C9 
-99 
-C3 
-99 
- 0 ? 
-93 
- 0 ? 
-99 
-09 
-99 
/ 

-33 
-03 
- 9 ? 
-Cl 
-33 
-03 
-99 
- G9 
-93 
-03 
1 / 
-02 
-99 
-03 
-99 
-09 
-92 
-03 
-93 
-09 
-93 


01 


511 


.2175 
1 1 676 
• 2C9 3 


.5921 

.1792 

.7909 

.2572 

.1969 

.1121 

.1959 

.1613 

.1979 

.9369 

.1229 

.2799 

.9693 

.1699 

.1957 
.9019 
I 2 1 1 1 
.7563 
.1765 
.6279 
.9165 
.5616 
.9969 
.7759 
.5127 
.7013 
.6303 

.9162 

.9001 

.2079 

.1936 

.9770 

.9193 

.1990 

.2999 

.6769 

.2599 

.5561 

.1126 

.9299 

.1397 

.5096 

.1561 

.3536 

.6525 

.1129 

.9297 


- C9 

39 
-0 3 
-35 

-09 

-99 

-09 

-99 

-09 

-09 


-92 

-09 
-99 
-09 
-39 
-0 3 
-35 
-09 
-07 
-09 
1=1 
-03 
-99 
-03 
-99 
-03 
-99 
-09 
-99 
-0 3 
-93 

-39 

-09 

-99 

-07 

-99 

-09 

-93 

-09 

-39 

-03 

-09 

-92 

-09 

-93 

-03 

-93 

-09 

-39 

-02 

-39 


-.1299 

-.6251 

-.9272 


-.2957 

-.2612 

•.9376 

-.5737 

-.7937 

-.2626 

-.3719 
-.2653 
-.6752 
-.5999 
-.9371 
-.2595 
-.3979 
.9277 
-.3999 
-.5336 
97 1 / 
-.2370 
-.1779 
-.6929 
-.1199 
-.2773 
-.2793 
-.5351 
-.3795 
-.6266 
-.5799 

-.7392 
-.5091 
-.9929 
-.9777 
-.1357 
-.3601 
-.2299 
-.6 769 
-.3977 
-.1362 

-.2796 

-.5967 

-.3125 

-.7612 

-. 399 ? 

•.1937 

-.1939 

-.3966 

-. 212 ? 

-.7751 


- 09 , 

- 93 , 

- 03 , 


- 09 , 

- 93 , 

- 02 , 

- 99 , 

- 09 , 

- 99 / 

- 99 , 

- 09 , 

- 99 , 

- 09 , 

-99 • 

- 3 , 

- 99 , 

- 09 , 

- 99 , 

-09 / 

- 03 , 
- 93 , 
-09 , 
- 03 , 
- 09 , 
- 99 , 
- 03 , 
- 99 , 
- 09 , 
- 03 / 

- 99 , 

- 09 , 

- 33 , 

- 09 , 

- 93 , 

- 09 , 

- 93 , 

- 09 , 

- 99 , 

- 03 / 


- C ? 

-99 

-09 

-99 

-09 

-93 

-09 

-39 

-02 

-99 


SHCOST SOURCr LIST 


D » If 09787? 


P8GC 


69 


998 

♦♦.8983.-35 


.18*3. -05. ♦,6873. 

-05 

*•5993. 

-35 

•.5386,-06* 

99? 

1*. 7973. -05 


•7576.-05. *.2555. 

-09 

••1655. 

-05 

*.7918,-05, 

953 

7*. 6885*05 

- 

.8035, -06. *.1753. 

-09 

-.1888. 

-05 

*.2607.-05. 

951 

3*. 1059.-09 


.9151.-06. •.1719, 

-05 

••9178. 

-05 

•.2393* -05, 

957 

9-. 6977. -05 

- 

. 9316. -08. ♦. 8177. 

-15 

♦•5707. 

-06 

♦ .2377. -08 » 

953 

5*. 6379 • -05 


.6511.-05. *.1533. 

-05 

••9133. 

-05 

*.7360, -05, 

959 

6*. 3895.-35 


•9376, -09, *.8938. 

-35 

8.1939. 

-08 

•.2993. -09. 

955 

7*. »837. -05 

- 

. 1010. -09. «. 1833. 

-05 

9.3296, 

-05 

-.3731,-05. 

956 

• 8*. 1957. -35 


.2933. -05. *.7976, 

-35 

-.9339. 

-05 

••1337.-05. 

957 

?♦ • 53 1 8 » -05 


•7795.-05. • . 1139, 

-09 

♦.7178. 

-08 

-.1859. -09/ 

958 

0*T* (till 

• 

.CVII.II ,1=51,1001/ 




95? 

17C7.-05 

- 

•1973. -05. -.3883, 

-05 

-.7685. 

-06 

• •1655. -05. 

960 

8*. 3631. -35 


.7361. -05. ♦•1389. 

-39 

-.7119. 

-36 

•.5670.-09, 

961 

0*. 3661 .-05 


. 1989. -09. ♦. 3078. 

-05 

-.1700. 

-09 

*.2711.-08. 

967 

l*. 7378. -35 

- 

. 9855.-01. ♦ . 51 17. 

-09 

-.7579. 

-05 

•.2777.-03, 

963 

?-. 7079.-05 


•8773.-05, *.1600. 

-05 

• .3505. 

-05 

•.1913. -05. 

969 

3». 6717.-15 

- 

•8???. -09. •.9952, 

-35 

*.3713. 

-05 

••1739.-09. 

965 

9«. 1271 .-05 


• 8997,-06. ♦ « 8998 , 

-05 

•.7197, 

-05 

• .8590, -03. 

966 

5*. 8673.-35 


•7122. -05. ♦•1693. 

-35 

-.1393. 

-36 

•.6705. -J5. 

967 

6* . 1798.-05 


.3818, -09. -.1169, 

-06 

•.3897, 

-05 

•.3837,-05. 

969 
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6 . 097 ?»- 36 .. 7133 »- 36 .. 19 ??»- 35 ».? 8 tl»- 36 ». 93 l 3 .- 16 .. 7618 .-O 5 . 

7 . 170 *. -t 5 . . 6 * 97 . - 0 * >. 7 ** 0 .- 05 . . 1380 .- 05 . . 97 * 3 . - 06 . . 10 * 7 .- 05 * 

8 . 16 * '*.- 35 .. 159 7 .- 35 .. 1 1 J 9 .-D 6 . . 1 588 . - 06 . . 1291 . - 35 . . 6 151 » - 0 *. 

9 . 50 * 9 .- 06 . . 2 ? 3 * .- 05 . . 1659 .- 05 * . 1562 .- 05 . . 2 332 . - 05 . -. 55 *C . - 6 . 

0 . 1 ** 1 . - 3 $.. 67 39 . - 75 .. 59 * 1 .- 36 ..I ** 2 .- 95 .. 7639 . - 36 *. 1001 . - 95 . 

1 . 1 1 * 0 . -C 5 . . 7609 .- 05 . . 71 15 . - 0 *. . 1*7 3 .- 09 . . 5070 .- 05 . .* 2 * 1 . - 05 . 

7 . * 737 . - 35 . . 53 76 .- 35 . .* 373 . - 96 .-. 6 ? 5 I. - 6 .. 91 37 .-I 6 .. I* 10 .- 95 . 

3 . 9 1 * 7 . -C 6 . .* 378 .- 06 . . 1 367 .- 05 . . 7597 .- 06 . . 3332 .- 06 . . 2 * 13 .- 05 . 
*. 1679 .- 39 .. 13 96 . - 35 *. 1 9 * 9 . - 95 .. 1 929 . - 95 ». * 926 .- 16 . . 1 366 . - 05 • 

S. 139 I* - 05 *. 1 6 75 . - 09 / 

06 T * L 3763 . 97 . 129 . 69 . 89 . 73 . * 7 . 53 * 129 . 61 . 129 . 75 . 93 . 71 . 92 . 82 . 98 * 37 . 
no*. * 3 . 70 . 67 . 95 .9 7 . 67 . 7 *. 135.9 6 . 135 . 7 *. 66. 71 * 163.1 3 . 1 71 . 50 * 117 . 82 . 
21 13 . 13 . 13 *. 69 . 32 . 59 . 69 . 95 . I 79 . 3 *. 59 . 19 . 72 . 52 . 76 . 99 . It 7 . 77 . 11 *. 19 . 
3100 . 96 . 1 10 . 51 . 36 . 99 . 97 . 97 . 5 *. 1 9.61 . 39 . lie . 71 • 1 1 6 . 09 . 17 * .* 3 . 1 1 7 . 31 . 
9 133 . 96 . 179 . 21 , 129 . * 5 . 69 . 9 7 . I 92 . 79 . 166 . 66 . 79 . 36 . 11 9 . 9 *. 59 . 8 * * 63 . 99 . 
53 9 . 29 . 162 . 39 * IIP. I 8 . I 90 . 9 7 . 19 3 . 01 . 19 *. 97 . 01 . 97. 71 . 67 , 66 . 03.121 . 23 . 
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